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各 位 昔 果 用 家 的 让 者 ， 如 
侈 们 在 十 月 十 八 日 至 二 十 二 日 
有 去 尝 尖沙咀 的 新 港 中 心 ， 你 
一定 会 知道 新 港 中 心 正 潜行 “ 
电 用 嘉 年 华 ”， 过 次 嘉年华 是 
首届 电 用 界 盛事 ,而 主办 机 构 
是 希望 电脑 能 普及 化 ， 所 以 训 
年 华 就 以 趣味 的 手法 ， 使 未 便 
接盘 浊 电 脑 的 朋友 ， 能 用 轻 用 
的 游戏 手法 今 各 朋友 搂 角 到 天 
於 电 腹 的 知识。 

当 电 觅 嘉年华 开幕 还 一 日 
， 就 由 立法 局 访 员 戴 展 华 先生 
、 林 有 贝 幸 嘉 女士 及 亚洲 电脑 广 
场 创办 人 彭 东 尼 先 生 进 行 剪 炊 
。 剪 乏 完毕 后 各 游 戏 抽 位 即时 
开始 。 过 庄 共 有 工 2 个 欣 位 给 
各 朋友 傣 观 和 玩 灰 ， 而 以 下 简 
单 介绍 这 工 2 个 搬 位 给 各 获 者 


1. 办 公 至 收 计 

党 你 踏 人 还 搬 位 时 ， 你 可 
慑 成 一 个 发 计 师 ， 把 自己 心目 
中 办 公 室 俯 优 所 帮 的 位 置 告诉 
电脑 ， 邹 时 你 理想 的 办 公 室 惑 


站 


女 


显示 在 和 葡 光 幕 上 ， 使 尔 能 看 到 
先进 的 电脑 器 材 和 电脑 对 给 图 
设计 的 帮助 。 
2. 1]108 电 活 查 询 

带 游戏 是 要 你 做 二 0 8 粮 
的 搂 绿 生 ， 你 需 4 5 秒 内 便 查 
出 用 户 所 碍 欧 的 电 店 号 码 北 了 
答 覆 。 此 黎 虐 能 给 予 你 党 让 做 
接 绢 生 的 乐趣 。 
3. 飞行 模 所 息 加 

如 你 自 幼 便 想 做 一 便 戒 机 
策 ， 你 一 定 会 喜欢 直 一 个 撮 位 
， 和 当 你 一 进入 去 束 成 篇 一 位 来 
机 病 ， 你 在 未 行 模 所 器 上 财 翔 
天 际 、 目 由 自在 ， 但 它 亦 向 你 
的 贺 驶 技术 挑战 ， 而 你 在 运 豆 
能 看 到 控制 仪 咒 及 地 面 式 屯 面 
过 的 东 像 。 基 特别 的 是 你 起 琴 
和 遇险 的 情景 ， 你 均 可 昌 暑 ， 
有 如 身 历 其 境 ， 士 分 刺 敢 。 
4. 训 情 考验 

过 是 家 呀 计划 指导 全 与 数 
育 赦 合 作 的 ， 它 们 合作 讽 计 了 
有 数 育 性 和 游戏 ， 共 有 六 和 丛 书 多 
。 过 六 套 和 游戏 其 中 有 上 三 青春 路 
上 了] 了 、 上 了 给 我 组 4 上 构 会 





知 多 少 」 等 。 使 雷 胸 能 给 各 肌 
友 了 解 到 性 数 育 和 人 际 知 铁 。 
S. 自 给 图 像 

过 是 王 安 电 脑 加 以 放大 站 
打印 出 来 的 电 胸 ， 你 可 把 手 上 
的 黑 白 照片 给 它 放 大 。 然 鳃 你 
可 利用 数字 殉 换 器 余 电脑 描画 
绘图 ， 而 你 给 的 图 就 投射 到 八 
叭 凋 的 大 繁 幕 上 ， 你 给 完 后 可 
凡 看 到 自己 的 作品 。 
6. 爆 颗 夹 万 

你 是 否 有 了 开 雇 来 亡 的 经 栈 
， 过 一 搬 位 就 要 你 党 武 开 诬 来 
万 的 僻 趣 你 要 在 五 分 甸 内 打开 
吉 夹 昔 。 看 看 自己 有 和 否 开 欣 夹 
万 的 才能 。 
7. 机 械 人 障 奉 赛 

它 之 所 以 名 需 机 械 人 障 在 
赛 ， 当 然 一 定 有 机 械 人 存在 ， 


而 它 是 受 你 的 志和 昔 所 控制 ， 而 
技巧 直接 影响 到 旗 械 人 治 途 奋 
播 降 丰 物 。 
8. 得 党 创作 

由 通 利 琴行 主办 的 音乐 创 
作 。 如 你 有 创作 音乐 天 才 的 划 
， 通 利 琴 行 以 山药 得 僻 电 脑 提 
供 一 项 有 趣 的 游戏 ， 把 五 绿 谐 
的 音符 输 和 人 电脑 ， 然 后 题 示 出 
监视 器 上 。 你 又 可 指示 电 有 驱 把 
你 输入 的 五 绢 谈 重 奏 一 次 。 
9. 芽 业 大 计 

现时 楼 价 高 试 ， 若 你 想 买 
一 座 认 理想 ， 价 钱 又 合理 的 住 
宅 。 必 然 想 到 .自己 能 否 负担 得 
起 ， 面 过 一 座 电 脑残 能 帮 你 把 
每 月 分 期 款项 及 其 他 有 关 葡 出 
告诉 你 ， 想 必 一 定 会 癌 获 。 
10. 道路 安全 六 验 





每 一 市 民 都 应 钵 守 交 通 规 
则 。 过 游戏 使 你 能 了 解 到 道路 
安全 的 知识 ， 特 别提 供 交 通 安 
全 游戏 程式 ， 你 必须 把 正确 的 
答案 输入 ， 便 知道 成 炳 如 何 。 
1. 春 标 和 网 球 大 壮 

如 你 是 -- 个 反应 敏捷 的 人 
， 你 就 可 在 过 搬 位 大 展 身 手 ， 
过 个 运动 游戏 是 一 个 和 网 球 大 赛 
程式 ， 到 动 游戏 的 计 分 方式 与 
正式 比赛 相同 ， 你 反应 代 高 ， 
多 取 的 分 数 融合 多 ， 和 党 起 自己 
能 否 进 入 继 决 赛 。 
12. 提高 钠 售 管理 

若 你 想 成 集 一 位 销售 管理 
人 员 电 有 可 助 你 一 臂 乙 力 ， 能 
助 你 做 一 个 销售 弓 儿 与 及 把 盘 
利 机 会 告诉 父 ， 对 你 十 分 乙 有 
帮助 。 


电脑 嘉年华 开幕 当日 ， 有 
很 多 对 电 妥 有 规 趣 的 朋友 获 观 
， 读 者 可 从 照片 中 知道 当时 的 
热 关 场面 。 

过 次 瘟 年 华 婚 能 使 各 位 砍 
观 者 得 到 更 多 的 电 乃 知 坑 和 星 
富 的 和 礼物， 也 使 笔者 看 到 电 鹏 
能 普及 化 ， 感 到 非 贡 之 高 兴 ， 
布 望 以 俊 有 更 多 到 类 嘉年华 的 
活动 ， 使 人 人 者 能 了 解 电 胸 的 
知 旋 ， 从 而 更 能 赵 癌 普及 化 。 
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杰 枯 月 证 在 电脑 


在 许多 办 公 室 的 捍 上 你 不 
多 不 少 也 可 看 到 一 些 栓 普 月 层 
， 凡 其 麻 过 麻 多 人 需要 它 呢 ? 
需 的 是 它 可 替 人 们 让 下 重要 的 
事项 ， 所 以 格 头 月 层 自 然 有 它 
的 重要 性 。 

各 位 读者 对 检 头 月 层 峰 该 
有 昌 识 积 ， 而 我 局 其 麻 要 坟 到 
公司 常用 的 栓 头 月 层 呢 ? 蔡 因 
我 让 需 各 位 读者 亦 有 你 们 自己 
要 记 下 的 重要 日 子 和 事情 。 例 
如 ， 朋友 的 生日 、 锡 会 与 及 尺 
此 种 种 的 重要 日 子 和 事情 ， 你 
在 办 公 室内 当然 可 以 翻 看 自己 
的 格 头 月 层 , 但 可 令 想 到 要 经 
常 翻 看 一 份 厚 厚 的 月 层 才 可 看 
到 未 来 及 以 往 的 约会 是 件 非常 
麻烦 的 事 呢 ! 有 没有 想 过 如 果 
你 的 更 果 志 脑 也 有 如 此 功能 ， 
可 帮助 你 储 起 所 有 的 重要 时 刻 
,可 让 你 在 萤幕 上 一 目 了 然 地 
看 到 整个 月 的 每 个 重要 日 子 。 

现在 各 位 不 需 再 巧 空想 像 
了 ， 因 需 笔 者 在 今 期 已 坟 大 家 
准备 了 一 个 你 们 理想 中 的 权 英 
月 层 程 式 * 各 位 首先 要 做 的 ， 
就 是 先 把 整个 APPLESOFT 
BASIC 写成 的 程式 键入 ， 由 


着 用 以 下 的 指令 把 它 存 人 磁 片 
内 : 一 

SAVE DESK .CALEN 

-DAR 

此 程式 是 可 在 DOS 3.3 
及 PRODOS 操作 系统 下 有 运 行 
的 ， 和 视 乎 各 纤 者 的 喜爱 。 


程式 输入 法 


你 只 需 把 『 检 头 月 导 在 电 
脑 」 程式 办 入 后 便 可 储存 在 磁 
碟 上 ， 执 行 此 程式 前 最 好 首先 
做 除 患 (DEBUG) 的 步 赚 ， 
或 是 在 运行 程式 前 先 检查 清楚 
有 没有 打 钳 方 可 开始 输入 页 料 
。 笔 者 依 经 大 意 没有 检查 清楚 
程式 便 了 予以 运行 ， 辕 果 当 侵入 
了 整个 月 的 页 料 后 ， 在 要 把 它 
们 存 入 磁 碟 时 方才 发 觉 程 式 出 
了 钳 闷 ,使 所 有 的 资料 化 坑 筷 
有 ， 至 此 笔者 才 和 后 悔 需 何 不 先 
把 程式 做 除 号 的 步 又 。 

好 了 ! 言 归 正 传 ， 导 我 们 
来 均一 堵 过 程式 的 用 法 。 


程式 使 用 法 


在 开始 有 运行 程式 后， 玛 幕 
会 出 现 如 表白 的 MENU ， 共 
有 五 个 项 目 给 你 污 择 ， 过 时 你 
可 用 左右 箭 咀 来 移动 游标 以 作 
选择 ， 假 如 你 是 第 一 次 使 用 运 
程式 ， 便 得 渤 择 “CREATE 
LALENDAR MONTHE” 二 一 
栏 ， 之 后 你 要 从 一 至 十 二 月 中 
簿 出 其 一 ， 当 你 导 择 了 之 和 后 会 
有 一 警告 字句 出 现 ， 如 条 你 要 
始 值 一 个 月 上 时， 是 会 把 该 月 的 
资料 竹 掉 ， 除 非 吉 是 你 第 一 次 
在 过 个 月 内 输入 资料 。 当 你 进 
人 了 过 一 栏 后 ， 你 便 要 愤 择 日 
期 ， 当 你 愤 定 了 日 子 人 后 ， 便 可 
键入 诅 天 的 事项 ， 但 有 一 点 是 
要 注意 的 ， 就 是 每 天 所 能 记 下 - 
的 事项 不 能 超过 159 个 字母 
。 如 你 所 输入 的 字数 超过 了 1 
59 人 个， 程式 只 会 记 外 首 159 
个 了 字母， 其 余 的 会 给 取 洽 同时 
你 有 机 会 重新 输入 资料 。 

当 你 已 不 是 第 一 次 过 入 资 
料 往 某 月 的 上 时候， 你 便 可 以 跳 
至 “ADD/ACHANGE/ZDELE 
-TE EVENTS” 机 来 作 资 料 
的 加 、 减 或 改良 的 程序 。 当 你 
和 进入 过 一 栏 和 后 亦 有 三 个 录 择 ， 
分 别 是 ”加 ”， ”改良 或 滑 除 
“及 ”返回 MAIN MENU?” 
。 如 有 新 资料 想 加 入 的 话 ， 只 
需 寻 择 “ADD” 过 项 ， 跟 着 便 
是 园 择 需要 的 月份 ， 之 后 便 要 


键入 你 所 想 输 入 资料 的 日 期 。 
过 时 你 除了 可 在 猎 右 上 昂 到 所 


键入 的 资料 外 ， 膛 有 两 个 尘 择 


键 5 分 别 是 “Q7” 和 “02? 四 加 
你 按 “0” 便 可 看 到 在 过 个 月 
训 有 那 具 天 是 已 斑 入 了 资料 的 
。 当 你 把 需要 的 资料 全 部 办 和 
后 便 要 按 “Q” 把 它们 存放 入 
磁 夸 内 。 

有 时 当 你 过 了 一 段 日 子 后 
才 发 擂 以 前 漏 了 一 些 重要 日 子 
没有 记 下 的 ， 过 时 你 便 要 选择 
“CHANGE [DELETE FEVE 
NTS” 过 项 ， 它 的 工作 主要 
是 使 你 可 以 把 以 往 的 资料 修改 
或 清除 。 当 寻 择 了 过 项 和 后 要 做 
的 事 ， 首 先 便 是 要 输入 所 需 的 
月 份 ， 程 式 便 会 把 该 月 内 的 所 
有 资料 攻 入 记 屋 ， 而 营 幕 的 中 
央 会 显示 你 以 前 所 办 入 的 次 料 
, 而 萱 幕 的 下 方 则 有 一 系列 的 
笑 合 提示 你 有 那 关 个 键 是 可 以 
用 的 。 它 们 分 别 是 : 一 
< 一 ， 一 ， RTN7”，D ，C。 
左右 箭 咀 及 “RETURN” 键 
是 负责 尘 日 期 的 ， 典 选 定 了 
需要 更 改 次 料 的 那天 后， 如 是 
要 作 修改 的 话 便 要 按 “C” 键 
,党 修 改 完 资料 后 便 要 按 “了 
-ETURN”, 你 修改 后 的 资料 
便 会 被 储存 入 磁 碟 内 。 如 是 要 
把 特定 的 日 子 清除 的 茵 ， 步 对 
跟 以 上 大 致 相同 ， 先 用 左右 入 
咀 先 择 想 删 除 的 日 期 ， 当 涟 定 


了 之 后 便 按 “D ” 键 ， 但 在 你 
的 资料 彼 删 除 乙 前 ， 电 及 会 问 


你 是 否 牙 的 要 删除 它 ， 如 是 的 


荞 你 只 需 按 左 箭 咀 把 游标 移 去 
“YES” 上 处 再 按 “RETURN” 
键 便 可 把 过 天 的 资料 清除 。 不 
然 的 话 你 可 以 按 去 “NO” 处 
, 需 的 是 防止 你 不 小 心 技 错 键 
而 驶 洗 了 资料 。 

当 你 完成 了 过 项 目 内 的 工 
作 要 返回 MAIN MENU 时 只 
需 按 “ESC” 键 程式 便 会 返回 
MAIN MENU “。 假 设 你 现在 
不 是 想 输 入 或 删除 资料 ,而 只 
想 看 看 某 月 内 有 些 甚 糜 项 目 或 


绝 会 的 话 ， 可 以 在 MAIN M 


-ENU 时 按 去 “DISPLAY 
EVENT CALENDAR” 一 栏 
， 之 和 后 电脑 会 显示 三 个 愤 择 给 
你 : 一 

ONE MONTH 

FULL YEAR 

MAIN MENU 

假如 你 是 愤 择 “ONE MONT 
-H” 的 ， 么 幕 会 是 示 出 十 二 
个 月 的 名 称 ， 你 要 用 左 或 右 箭 
咀 去 园 出 所 需 的 月份， 之 后 熏 
幕 也 会 有 三 个 愤 择 给 你 :一 
SCREEN ONLY 
PRINTER 一 80 COL 
MAIN MENU 

如 你 暂时 只 想 在 整 幕 上 看 到 融 
个 月 的 所 有 资料 ， 可 按 去 ”S 
-CREEN ONLY” 过 一 桶 ， 


之 和 后 程式 便 会 把 该 月 内 的 所 有 
资料 全 苇 入 记 民 内 ， 随 着 和 萱 幕 
便 会 杰 成 一 个 像 月 层 似 的 画面 
， 琴 看 表 G 〇 。 而 且 便 经 和信 了 资 
料 的 日 子 在 月 唇 内 相对 的 日 期 
旁 还 有 一 个 因 动 的 “X” 字 代 
表 ， 使 你 一 看 便 知 有 那 天 是 
有 重要 事项 的 。 现 在 你 只 需 再 
按 RETURN 键 ， 给 幕 便 会 把 
过 月 内 有 资料 的 日 期 内 的 事项 
全 部 显示 出 来 。 、 

如 你 有 印 胡 机 而 又 想 印 出 
资料 的 时 候 ， 只 需 按 去 “PRI 
-NTER 一 80 COL ”过 机 便 
可 把 它们 印 出 来 有 一 点 要 注 
意 的 是 到 程式 内 的 控制 坪 只 通 
用 认 Prowriter 8510A 和 
NEC 8023A 印字 机 。 


在 MAIN MENU 中 膛 
有 一 个 “DISPLAY/ACHANG 
-上 YEAR ”的 功能 ， 当 你 渤 
择 了 过 一 桶 后 ， 么 幕 会 显示 现 
时 的 年 份 及 间 你 是 否 要 更 改 年 
份 ， 如 果 是 的 冰 会 听 你 输入 新 
的 年 份 。 程 式 中 已 届 定 了 年 份 
是 一 九 八 五 年 ， 你 也 可 以 改 构 
它 ， 只 需 将 行 20 内 站 的 数值 
更 改 便 行 了 。 

最 后 要 一 提 各 读者 的 就 是 
此 程式 最 好 储存 在 标准 的 DO 
-9 3.3 或 PRODOS 系 入 
磁 碟 内 ， 因 霹 有 数 征 经 过 改 和 良 
的 FAST DOS 是 不 能 完全 
还 行 此 程式 的 。 


<< 表 提 > 


其 许 其 斌 革 长 扰 其 项 站 其 计 衣 居 主攻 其 隐 长 其 并 其 十 长 持 放 攻 抽 侍 必 访 寺 放 镭 长 其 读 其 长 评 


六 
医 
藉 
训 . 
提 . 
其 
其 


《~ -~-> TO SREI-ECT 。。。。 


着 反攻 其 眉 许 提 攻 项 长 中 长 长 妇 NMATN MENU 坟 必 其 长 者 几 尖 得 贡 证 黄 计 长 


DESK CALENDER 
FOR 


骨 
给 
其 
长 
PERSONAL USAGE 长 
闪 
攻 


DISPLAY EYENT CALENDAR 
CREATE CALENDAR MONTH 
ADD7ZCHANGE/VDELETE EVENTS 
DISPLAY/VCHANGE YEAR 

QUIT 


RETURN TO EXECUTE。 


(----!--- 
11 1 2 
| ! 
1!----| --- 
18 19 
! | 
1]----!--- 
115 116 
! 
1I----|--- 
1I122 123 
| X 1 
!----|1--- 
29 
| 


<< 表 口 >> 


SEPTEMBER，1985 
SR 
3 !4 5 Il6 47 1! 
LT 
-|----|----i----!----|----|! 
Il10 ! 2 1!13 1!14 1! 
XXX 
| 
Il17 !18 !19 1!20 1!l21 1! 
L 
| 
1l24 1!25 126 127 128 |! 
| 
I----|----1----1----! 
1 1 1 
1 1 1 1 1 
0 


人 月 民企 昨 及 让 直下 


10 
20 


0 
40 


50 
6 
7 
8 


?0 


100 


10 


120 


名 二 


LET IN = “六 
Y = !1985 

YR = 5TR 末 《1 
0$ = HR (4) 
下 


603UB 180 


DIM NS) D140) 
DIM IN$(40) ,EVS 140) 
BIN 有 (2) ,FT12) 
FIRI =11T05 


READ 人 本 人， 了) 


NEXT 
FOR IJ=1 TU fS 


:READ (人 ) 
和 NEXT 


FORJ = 768 T0 790 


;READ 了 


POKE 1 


;人 EXT 了 


FOR I=1l1T1012 


READ NE 人) 


NEXT 
FOR 1 = 工 生 3 


} READ NU 和 (2 


130 
140 
150 


10 
170 
184 


130 


; NEXT 了 

FOR 1 = 1 7T03 
;READ 放 $13，T)  、 
:NEXT 
FORI=1T93S 
RE 二 人 芋 人) 
; 扑 EX 了 

FRI = 102 
; 入 EAD 拓 昌 (SS 了 T) 
:NEXT 

60SUR 4 

60T0 7 的 

FuR zz 上 =3S8TOG0STEP -1 
: PKkE 32，7 
;PbkE 33 ,49 - 了 
Ho 
: NEXT 
; 化 有 RN 
PUKE 3S2 让 
FOR Z = 0 T0 39 
: POKE 33 2 + 1 
; HU 作 E 
: 朱 XT 
:RETURN 


200 


210 


220、 


?30 
忌 40 


250 


260 


270 
280 


“9 
00 


3 


C - 1 :PRINT 2 
; 60T0 240 ;VERSE 
VTHB 以 + 2 和 0 Ne 
HTAB 和 ADRNAL 
， PRINT HU 地 ( 拓 1 0S) ， PRINT "> FOR 人 IN 了 1 靖 
VTAB W + 2 二 fg sS20  POKE - 16368,0 
，TNVERSE S30 长 = PEEK (~…16384) 
，HThB | 2: IFKkK《AL9 THEN 330 
; PRINT 年 ( 盾 CS) 人 
NORMAL :KK=k -128 
RETURN ; IFKC》8ANDK《4》21 ANDK 
CS =( . >》10AND 攻 《1 ANDKY 
人 >43 ANDK《 >》27 0 (K = 27 
，TNVERSE AND HL = 1) THEN 330 
IF 出 = 2 THEN VTAB 8 0 
，HThB 1 : IFK=27 THEN CS = 3 
; PRINT DISPLAY，，,， ; 15 = 3 
FOR NM2 = {1 T0 4 300 IFK=litogRK=8THENCS = [CS 
: ]F NM2 = CS THEN - 
， INVWERGE :(S=[S+# (CS>0+5st(CS>= 0) 
VTAB VSX 天 NM2 + 凡 
HTA8 HH ; 609U8 210 
; PRINT 半生 ( 基 F NM2) :5010 330 
，NORNAL 370 IFkKk>z2tf0RK=140THSNCS= [CS 
NEY 了 + : 
VTAB 23 : [CS=[tk (SS =39)+([S=5 
:NMVERSE + 了 
PRINT 和 - 9 ; 505Udg 210 
，NORNMAL ; 60T0 330 
，PRINT ， 80 [ = fi 
，TNVERSE 330  POKE 994 ,村 | 
: PRINT “=-》 : POKkE 895,9 
， 和 OORMAL ;PORKE 896)0 
PRJNT TREE 二 三 400 ON HL BTO 410 420440，450,760，77 
; INVERSE 0,780,， 7950;800 
; PRINT "RETURN ; 0 AN = 40 
NGRHAL : C = 40 
， PRINT ”TOG EX 人 ECUTE，， ; 0N C5S 60T0 164021702670，4230，36 
JF Ne >1ITHENVTAB 24 多 
HTRB 420 oON [5S 650T0 1730，1740 3 


10 


430 


TEXT 
60SUB !190 


: 80T0 3700 


440 
45 


400 


ON L3 80T0 177017803700 
ON CS 60T0 26950，26903700 
3 = 和 


;FORIL TO 


VTAB V + T -1 


: HThAB 有 


和 7 


PRKINT 1 二 (1 
全 X 了 
了 


2 HTAB 
PRINT 荐 下 (5 1 ) 。 
HTAB H + 5 


480 
450 


:PRINT NU$ 45，2) 


60T0 540 

JIFiNtz50RNH =6THEN HTAS H 
+5409-5 

VTAB YY 


:PRINT 的 本 (5909) 
: 60T0 510 


900 


HTAB 人 


1 VTAB V+Y 09 -1 
: CALL - 868 


9i 


PRINT 信和 人 (05 ) 
If NogRNHM=6THEN HTAE HH 
+95kL95 -9 


: 【NMWVERSE 


920 


VTAB 以 

PRINT 人 和 ,9) 
村 0RH 有 L 

60T0 530 

HTAB 


:ITNVERSE 


VJAB V + LS -1 


: 〔C 人 LL -~ 868 
?PRINT HS 人 CS) 
;NGCRHAL 


530 


RE TURN 


11 


940 


5950 
9500 


570 


580 


590 


0 
6 


C6=1i+k( 人 Hz=0) 


;ITNVERSE 


HTAB 革 


IFNM=SORNL = THENVTAS 人 


: HTAB H+ 5 +tfS -5 
; PRINT It5,CS) 
: 60T0 580 


VTAB 


;CALL - 868 


PRINT 村 (CS) 


: NORNKAL 


VTAB 2 


:; [TNVERSE 
了 RINT “一 ”; 
; NORMAL 


PRINT ””; 


; 【INVERSE 


PRINT “->" 
NORNAL 
PRINT "TD SELEET ，，， 


; TINVERSE 

: PRINT "RETURN" ， 

; 有 NORN 信 L 

; PRIRJT ”TO EXEEETE 
: VTAB 22 

: HTAB !0 


PRINT 259; 
INVERSE 


:PRINT “956 ; 


1 NOR 及 L 
FRRT ”> 于 GR 拓 人 了 苯 E 基 7 


POkE -10603680 
KK = PEEK { - 19384) 


: IFk< teTHEN 6t0 


PUKE - 16368)0 


:kk=k-!28 
;下 人 >8ANDk>21 ANDK 


人 》 拉 用 E》1ERNDK 
27 AN K《 >》143 AND HL 《5 
THEN 610 


bs AND KE 78RRK = 89 840 HTAB (20 - 上 E 寺 《NU 革 ( 拓 1 本) ， 2) 


0RK= LI0ORK 121) 60T0 610 TAB YY 
PRINT 村 (4 全 ) 
b40 05 = [59 ;RETURN 
650 IFK=8OoRK= it THEN LS = [5 850 了 XioRxy>NC THEN ER = ! 
| ， RETURN 
;LS=foAk (CS>70)+39x+ (CS=0 80 RETURN 
670 WTAB 22 
: 605U85 490 : FOR Z=17T040 
; 60T0 和 所 PR 下 
bo JIK=2boRk=s OHEN 5S = 55 ; 人 EXT 
+ | :Vz=23 
[5=t+yt(te=59+ (CS = 49 ; X 蔬 = "ENTERSQ7 TO 的 IT 
+ ]) ; 60SU45 830 
:605UB 431 :yz= 24 
: B0T0 和] : 地 = “ENTER ZERO (0O) TO DIS9PLAY 9 
870 上 =t ATES， 
IFNMLC5STH710 ; 60SURB 830 
6 下 kz=78pbRK= IIOTHN [S= 2 : POKE 35，21 
0 IFK=890RKk= 1!21 THN CS = 1! ;RETURN 


700 只 侍 -46070 810,820 880  VThB 23 
710 IFK = 27 THEN 3700 PRINT 5 
720 。 POKE 894 ,| IERSE 

:; POKE 895,[S PRINT “RET"; 


二 本 工 


: POKE 896，1 :NORNAL 
730 二 60T0 740,760,770,730,910,92 RN 
: PRINT = CONTINUE 《?; 
140 ]JFC = 二 THEN3700 : TINVERSE 
10 00T9 2210 : PRINT "ESC"; 
760 0N [CS 60T0 1730)2240 ,1740;3700 :NORNAL 
770 IFCS=143THEN 3700 :RN 
780 60T0 1720 890 RETURN 
790 IFfS=413THEN 3700 900 MTAR 23 
800 6070 2720 :HTAB 1 
8 gN CS 60T0 2750,2670 ; PRINT ”ANY KEY TO CONTINUE，"， 
820 60T0 3470 ; JNVERSE 
830 HTAB (20 - LEN {X 本 ) 2 ;PRINT "ESC"; 
1 VTAB 4Y :NORNAL 
: PRINT ;PRINT “>》FOR 攻 ENUv ， 
;RETURN : 6ET X 


?10 
9 2 


Q3N 
了 wwv 


940 


1010 
ji020 


1030 


1040 
1030 


1070 


1 的 


1120 
1130 


: POKE - 16308 ,0 
: HOME 
;IF X 训 = CHR 本 (27) THEN EF = 1 


RETURN 

605UB 180 
:Vz=10 
FLASH 
) )X 吾 =” SO0RTING EVENTS RY 0ATE" 
; 605UB 830 
;6439U8 1010 
: FOR = 1T01505 
; 人 扯 XT 
; HGHE 
RETHURN 


PRINT 和 PR 
PRINT CHRS 0) 
PRINT 和“ PRO 


RE TURHN 

IFNz= LTHEN RETURN 
k= 有 N-l! 

FOR IT = 环 TOK 
Lz=N-i 

FgR JJ= LT0L 


革 996 人 00+li THEN 1070 
T = 1() 


， 玫 = E 人 ) 

: Dt) = It+ 1) 
;EU) = E( + 11) 
: 0 人 +tj=T 

: EV4( + 1) = T 


NEX 


:NEXT 了 
:RETURN 


医 XT 


60548 180 


ONERR 60T0 4120 
V = 1 拉 


， INVERSE 
; y 和 = ”好 ITING "+ 人 人 秆 ) + 二， 


+ 了 RY 多 + 


局 


13 


1 140 
134 
1164 
1170 
1180 


1 9 


1200 
2 
1220 
2 
1240 


1250 


1270 
1280 
1300 


:690SbB 8 
; 拓 和 RM 有 


PRINT 

PR NT 家 日 PE 居 和 本 于 二 PTR 二 
PR 了 NT 本 ”请 RE ” 重 囊 :8 
PRINT 并 

下 Nz=DUTHEN PRINT 


; PRIRJ D 和 "CLOSE 本 和 ) Y8 
用 半 了 

;下 N NT D 训 ”DELETE 兴 囊 人 YR 坟 
RETURN 


FORkK= TO 


FRINT BA 区) 


JR = 人 ( 信 1 
PRINT 了 

本 人 

PR 了 NT 了 二 "CLOSE2 
H0H 


;RETURN 


TEX 
605U8 180 


:LET HS =， 
1260 


y = 培 


:JIMVERSE 
: 沾 =RE 了 DING "+ 周 1F) + 


才 YR 二 中 外 


; 6093UB 830 
1 NORMAL 


1310 
: 《ALL ~- 938 


1320 
1330 
1340 
1390 
1360 
1370 


FRI 了 

ONERR 60T0 4000 

FRR 人 PE 全 ”寺村 《FF Y 闪 示 
TAB 1 


PRINT D 各 ”RE 人 RD 和 于 《FF YR 
INPUHT AN 

IN=0THEN 14900 

FOR = TOAN 

JNPUT DT 

[CALL 768 

了 N 于 = 并 本， 


138 人 人 
4390 NEXT 
1400 PRINT 8"PLRSE"” 
1410 HHE 
: RE TRN 
4347 IFR=QTHEN NC = 40 
: 沪 = 40 
1489 3 了 MA 了 THEN 和 = 尼 +4 和 


: 60T0 i494 


了 1149 
500 


413416 
15209 


= INT IGMC - NEC A 2 +1 
IF LEFTS 3 持 ,1) = 和 ， THEN 他 
= TD 条 《1 人， 2 


; 60TR 1150 
IF SEN 8) 人 = NEC THEA SO 


= 人 


: FOR J1 = ML t+ TI TDILISTEP -| 


FF 了 D 本 人 EN 


NE 了 


:=Nb+1 


了 = LEFT 和 (于 ,了 - ]) 
60S98 1560 


:让 JETHEN 人 = 有 ID 《(Y9]) 


50T0 工 500 
乒 TA8 二 半 
FRINT 入 


: IF LEN ( 持 ) “> 了 THEN PRINT 


1570 


入 和 辫 要 和 1 


: RETURN 


1 人 
1090 
16460 


TEXT 
PR = 
60548 180 


= 1 


:2 人 = 2 
:1 = 1! 
2 609SUB 8 


107 


PR 人 
FORg = 1 TG 40 


;PRINT 


: 尼 fT 


14 


PUKE 34 .4 


1690 5 = :3 

:= 9 

: 二 = 14 

: 革 | = 2 

: 60T0 200 
1700 60SUR 9 

:3= 13 
1710 NM = 

了 M=0 

; = 1 

:60T0 460 
1720 F2 = [9 

; 00T0 1790 
1730 FL =10 

; 60T0 1700 
1740 F! = 1 

: F2 = |; 
1750 玫 X 

: 60SHE 190 

9=《3 

+ HL zs! 

:JJ=! 

AM = 7 

:Hz= 雪 

; 6005UR 840 

:NM z3 

， 6070 200 
17 站 Ms 40 

1 小 = 罗 

; 69T0 1790 
1780 六 = 80 

:NM= 8 

; PR = 


: 60T0 1790 


17 


任 XT 


: 605U8 190 


1860 


FORF = F2 T0F2+Fl 
PRINT 


: PRINT 了 和 PR 提 0” 


110 
1820 
1830 
1840 
1850 


60SUB 1250 

IJF NOT AN AND Fi = 1 THEN 2010 
IF NOT AN THEN 2040 

60518 3470 

If PR THEN PRENT CHR 委 《1S) 


: PRINT DaPR#17 
: PRINT CHR 本 《3) ;ai 


1860 


下 YX 


:2Vz= 2 
: X 雪 = “EVENTS FOR ”+ 人 (FI +， ，，” 


+ YYRY 


; INVERSE 

; 605U8 830 
》 有 DRHAL 
PORKE 34 4 
: HO 作 


1879 


1880 
1890 


1900 


1310 


IF PR THEN PRINT 


; PRINT 


FORI=1TON 

和 = NTF) + +STR 人 D()) 
tf + 人 RE 人 

L=iLEN 人 SF) t+ 人 
LEN ( STR (DY 1 

JF PR THEN PRINT CHR 二 27); 
CHR 本 《88) 


: FOR I=1T0L 
PRINT CHR 本 《32) ; 
:NEX 了 


1920 


IF PR THEN PRINT CHR 本 127); 


CHR 二 《89) 


;FRINT CHR 于 《12) 


全 铸 国 针 


1930 
1940 


1950 


PRINT CHR 李 《27); CHR 和 《114》; 

PRINT CHR# (10) 

PRINT CHR$ (27) CHR 人 (102) 

60SUB 1470 

PRINT 

IF PR THEN 1960 

IF 《NAND PEEK 137) = 》19 
THEN EF = 


; 6054B 5940 


1960 
1970 


1980 


1390 


“000 


2010 
0L0 


2030 
2040 


L050 


; IFEF 60T0 3700 


NEXT 
IF PR THEN PRINT 
PRINT 
PRINT 
2 RN 了 训 和 “有 PR 亲信 " 
;PRINT CHR 争 《9) ;TY 
:HH 
PKE -10603090 
:WTAB 22 
; HTAB 1 
; PRINT ANY KEY TO CS9NTINUE. 7， 
: INVWERSFE 
;PRINT “EC ， 
; NORNAL 
2 PRINT "> FOR NENU"; 
:6E X 
: POKE - 4036B7 0 
; Hg 
: JF X 了 = CHR (27) THEN 3760 
TEXT 
; 60SU8B 190 
JIF PR THEN PRINT 


1 RNT 了 宇 “PR 提 2 


NEXT 和 
?RNT 


: PRINT 了“ 他 R 和 和 


60T0 1640 
CALL 65338 


; [六 的 53 
:WTAE 
: 8B08U8 2090 


V = 10 


: X 束 =“TRERE ARE NO EVENTS FOR ” 


+ RN 人 下 ) + RS 


: 606 呈 83S0 

:V= 1i2 

: X 可 = “PRESS ANY KEY FOR MENU 
; 603UR 830 

: 860508 2090 


2060 
20710 


2080 
2090 


2170 
2180 
2198 


2200 


2210 


; POKE.- 18363 .0 


VTAR 12 


; HTAB < 


SET 


，IF NOT 由 THEN 700 


60T0 1440 
PRINT 


， PRINT 

:FOR II=1 1T1040 
PRINT “人 2” 

2 人 EX 

;PRINT 


RETURN 

下 xf 

J =[ 
505U8 190 
V = 1 

Ni = 1! 


: 605UB 840 


以 = 


: 半 = 


607T0 460 


605UB 180 


; 605UB 840 
:V= 2 

; ITNVERSE 

; ) = NS(C9) 
; 605UB 830 

:全 @RNMAL 


POKE 34 ,2 
PRINT 


PRINT 


INVERSE 


?PRINT “NBTE3 

， 和 ORAL 

: NO = 35 

:hh = "THIS PART OF THE PROGRANM 明了 


EL DELETE ANY EXISTIN6 EVENTS 
N THE MONTH CHDOSEN， 


: 60998 地 力 


16 


;PRINT 


2380 


条 = "TO0 ADD，CHANGE，QR DELETE 和 
NY EVENTS RETURN TO THE 时 全 全 
NU AND CH00SE THE ADDACHANGE7E 
LETE 0PTION， 

605UB 47 


PRINT 


605U8 880 
POKE - 16368,0 


: 6ET ) 地 


IF X 于 = CHR 和 (27) THENR TEXT 


; 60660848 190 
: 60T0 3700 


605U8 180 

LI =1t 

VTAB 4 

NC = 40 

JIF IT+NELAD》3S93 THEN PRINT 
CHR 二 《7) NO NORE RDOOY IN THIS 
入 LENDAR 半 DNTH 

PRINT 


;PRINT “PRESS ANY KEY TO CONTINUE， 


; 6BET 


PRINT 


: 0N NDT (0) 60T0 2590 


:RETURN 


扩 = "ENTER THE DATE OF THE EVENT 
IN + 人 人 人) 
809UB8 1470 


:1 THEN 2370 


60548B 870 
V 了 有 B 了 4 


: HTAB 


:CALL - 848 


PRINT 拓 和 () 人 -NIC) 


:INPUT “NS ) 


If NI) = 8” 9R IN(I) = 
CHR 吾 人 AND 和 D THEN 
RE 了 URN 


2390 


2400 


If IN = "0 0R INS(TI) = 
CHR (113) THEN 2590 

IF INS(I) = “0 AND II 2 AND 
NOQT 六 用 ND AD 了 THEN VTABR 


:入 = “NG ENTRIE9S" 
; 605Ug 1470 
; 60T0 2370 


2410 


JF IN 人 TI) = “0 AND TI 2 ANT 
NOT AD THEN VTAB 


: 鹏 = "NO ENTRIES 
: 608U8 1470 


2420 


60T0 2370 
JF INI) = "0 THEN VThB 1 


:FORJ=1 TONEAAD+ 了 -1 


条 +9TRS (0 人 9)) + 


: 隆 X 
; 60SU8 1470 
:50T0 2370 


2430 


X = YAL {TIN(T) ) 


: 605 邮 850 


IF ER = 1 THE ER = 


 PIkE 34.0 
: POKE 35424 


: 80T0 


2440 


2450 
2460 


220 


IF 8D THEN DUN + i) = 


: 60f0 2460 


0() = 
038 190 


VE=14 


:本 =“ ENTER THE EVENT(S) FQR THE 


DT 


; 605U8 830 

;有 = N( 人 (C++ STR (X) 
:MY=3 

; 605U8 830 

:PRINT 

PRINT 


“4 


;PRINT “~ 


FOR 2 = 开 TQ 4 


: 兹 X 


17 


2480 
2490 
29300 


9 的 


2940 


:PRINT 
CALL 76B 
jh = TD 《2N 本 1 
JN(1) = JRN 
IF 《IN 本 (I) = "B@" 0R IN 下 (= 
CR 二 《tt AND AD THSEN 
RETURN 
JIF LEN 《IN 本 红 )) > 139 THEN 了 和 二 人) 
= LEFT 争 (IN 下 人) ,159) 
，VTAB 1 
2 HTAB [ 
; CALL ~- 958 
;WTA ii 


;PRINT ENTRY TKUNCATED TQ 1S9 RHA 


RACTERS,， 


:PRINT "START 0VERIYAN) 3 


: CALL 69338 


; LALL 65338 


POKE - 16388 ,0 


: 6ET 


: PRINT ) 


; 0N = “50TQ 2460 


If IN(I) = "0 0R IN 和 (LI) = 
[HR 二 (113) THEN 2590 
IF [IN 和 LI) = 20 AND II 2 AN 
NOT AND D THEN VTSB 9 
:= NO ENTRIES -- ANY KEY TO C 
NTINRUE” 
: 60SU8 1470 
WTAB 9 
:HTAB 34 
: PKE -1368 必 
:CE 
: 6G0T0 2460 
IF IN = “0 AND ITIS 2 ANT 


NT 名 SHEN YTAB 9 


; 人 = “NO ENTRIES ~ RNYEY TU CUN 


TI 在 


: 8S09U8 1147 
: VJAB 9 


?TAB 3 
， POkE -1368 
; BET X 


2599 


60T0 2440 
IF [INI = *0s THEN VTAB 9 
FRI =TTIN+I-1 


= 
; 让 XT 

6095HB 了 和 7 

:TAB 12 

: 人 = 2hNNYAKEY TO COMTINUE。。， 
， 60548 147 

: VTAR 12 

HTARB 22 

， POKE -13 的 

; BEET 了 


和 


2568 


JF AD THEN EV 人 N + 了 = 工人 


; 60706 2580 


2970 
29 的 | 


Ey$fi) = It) 、 


Ttl 


:1D0SUE 180 
ftNf CADI《 4959T0 2320 


< 


2 THEN 下 人 


: 605bB 190 
:610 2370 


2000 


N=jl -ii 


人 


全 岂 


; 6b5U8 920 


:8095UR 全 
20 拉 8640T0 2199 
2870 TEXT 
2680 Ni ! 

:hs 

; 上 = 19 

是 

:9=: 

60548 180 
JJ =、 
jNVERSE 


18 


505U8 840 ， 


NORMAL 
: = 4 
: 03T0 200 


“0690 
2700 


FLAS = 人 
TEXT 


; 605UR 190 
:ML = 4 
:= FLAG 
:Vz=l 

; INVERSE 
:605U8 840 
NGR 朱 AL 


60T0 460 
上 = [5 


:; 680SU8 1250 


VJAB 3 


PRINT 并 4 FLAG) 


PRINT ”IN 5 和 (CS) 022 
35= :2 
H = 18 


:以 = 
;ML = 


2750 
J760 


2710 


: 60T0 470 


0N FL86 6QT0 2760,2890,3700 
TEXT 

60SU8 190 

X 寺 = 缚 DD EYENT， 


， 了 NVERSE 
:VW=1l 
， 608H8 83 


2780 


2790 


8 的 
“2810 


NGRgAL 
PRIRT 


; VTAB “ 


FOR = 1 TD 40 


:PRINT *-"; 
: NEXT 


PKE 34,3 
h = 


二 


2820 
28J3U 
2940 
2890 
“860 
2870 


2880 
2890 
2900 


2910 
292 


; 605U8 < 的 


各 = 

609UB 188 

于 2 THEN 270 
N=N+lI-i 
605U8 9 如 

下 T 

60508 196 


; 603SUE 区 


60T0 2870 
805SUB 180 
IF CH=TL THEN CH = 昌 


605 训 了 


IF NOT AN THEN 60TB 2 人 
VTAB 2 


; FUR 攻 = 上 了 0 4 


2930 


PRINT “- 
NEXT 

[ALL - 958 
VTAB 22 
HTAB 5 
PRINT "5 
INVERSE 


: PRINT sRTN"; 


NORN 信 L 


:PRINT ，》0R 1 


INVERSE 


， PRINT “> 
: NORNMAL 


《140 


PRINT ”TO SCROLL FORMARD 
VTAB 23 

HThB 2 

INVERSE 

PRINT 所 -9 

NORNAL 


:PRINT ”TO REVERSE SCRLL 


INVERSE 


:PRINT ”了 


NORHAL 


PRINT ”了 DELETE” 


19 


2850 VTAB 34 
:PRINT 2 人" 


;INVERSE 

; FRIHNT “55 

! NORMAL 

;了 RN EN 人 


; TINVERSE 
人 
NORSAL 
;FRITANT ”了 
2960 FFGEE SS 2 


29710 和 放 = 和 了 THEADL = 
RETSR 本 

2D80 站 = 2 
1 让 = 人 
:=FLAB 
:098 日 4 
:FOR 只 = 1 了 4 
| - 
) 从 XT 
证 


2990 FUR 二 = TH 
30050 人 NE 
Di YTAR 5 
:PRINT "EVENT 条 9 Th8f 03 DOF 。 
N" “"， 
ETAS 4 
PRINT "EYENT RATE= "于 F 人 人 
共 
3026 PDFE 34 
3030 全 = ET 
: VTAR 8 
;609S48 1 476 
3060 VTSB 24 
HT 人 i9 
: 人 ET 二 
;PORKE - 让 368 全 
3050 IFI=NTHEN IF Y 幸 = [HR 二 《13 


3 


RD 


4 尼 人 
2 


1 


1 了 
SN 


SN 


: 二 = 
: 7 二 | 
2 Wit = 0 
:0378 47 


0R 二 = CHR 二 2 DR X = 
CH 本 《0 EN = | 


: GT 3600 


IF 证 = CHR (33) 人 籽 = 
CHR 和 (2 BR 本 = CHR 宙 《90) 
THEN 组 

IFTI= AN (人 宁 = HR 8 0OR 
= CHRS 1 ThEN ] = 


:86TD 300 


IF X 于 = CHR (By 0R 站 = ffHRS (1 
) THEN TIT=1-1 
80TD 3000 
站 人 RCHR TD) 
THEN 414 
JF y 寺 = af DR 灶 = CHR 守 《99) 
THEA 230 
IF 于 = CHR (127 AND CH = | 
和 人 0SUE 全 10 
:Hz 


1 80TU 267 


IF 烙 = [CHF 【27) THEN 2679 
80T0 30 生 
pQIE 35，2 


: 有 Hi 放 
;MTRB 0 


条 = REYUU SURE YOU WONT TO SEE 
LE THIS EVENT FROM THE IE2 


匡 4 


634 


人 《7 


: 
门 
全 
2 


岂 


iFtoz=j THEN 3340 
咏 = |! 


: FDKE 35，24 
: 60SUF 39 
: 66T0 300 


20 


; 1NVERSE 


PGKE 35，24 
:PORKE 34 21 


HOME 


PRJNT "ENTER NEW EVENT -DR-《" 


;了 RNT “RT ) 
:有 NORKAL 
;PRINT "> T8 RETAIN 


3 


POKE 3 ， 


; POGKE 9 
2 疾 
;CALL 768 


;可 = 攻关 和 ，) 


[3 
了 
20 


; 多 = We 


IF ) = 


THEN CH = 筷 


; 007 3189 


Ey 训 人 


POKE 34， 


= 多 
b 


: PUKE 35429 
:HOME 


VTAR 和 


有 = 上 EV 可 (， 
68908B 1 7 


| THNEN AN = 


: ) 人 = 《HR 《2 


10 


3s280 CH = | 
60T0 180 
3340 HH0 几 
: 绚 = 
750 FAN = 
; 60T0 3! 
33oau = 1 


0 


; X= ”下 LETIN6 EVENT 
:下 人 
; 505U8 8 
NORNAL 


FORU=1T 和 1000 


:人 EXT 


:了 1) 


IF INTHEN FOR 4 = 
= 了 + 全 


TAN- 


90 
3400 
3470 


480 
3490 


3500 


9 


3S340 


3990 


: EVy(J) = E 人 人 + 二 5 


: NEXT 


60508 190 
:1z=Nf) 


N = | 

60T0 2890 

JI=NTHNN=N-! 3970 
6010 2890 5 的 
攻 XT 


=S+FHf ”1 


: 07=D /7 
:LINT II (DR -TINT IDX) 


84001)》) 
K = NT 1 人 
RD 


: HTAgB SU LE 5 + 
; 上 LA3H 
PRINT 


,区 NORMAL 

人 3590 NE 
PRINT 3 PR THEN 3624 
V zl 3 W TB 2 

1 本 : HT8B 二 


，60SUB 630 :PRINT 22P， TO PRINT SCREEN? 
NR =5- itF=2RNFNM2)》 = 人 3620 POKE - 146368,0 
+ {FN(F) + M 》 35) ; VTAR 23 
: FOR ] = 0 了 0 AR :TAB 1 
:HTA8 HH ;PRINT “ANY KEY T0 CONTINUE，,《 ?3 
VTRR 人 +) 站 : INVERSE 
; FIK =1T036 ;PRINT "ESE"; 
: PRINT CHR4 (45》; : NORNAL 
: NEXT di ; FRINT "》FOR 人 EM 
FOR JJ=HTNRS HtH :SET 关 


， VTAB 
:FOR TI=hTO7 
HTA8 3 天 了 十 具 36 了 ER 
?PRINT CHR 《3 64 
; 化 X 了 

FOR = 1 了 玖 划 


:D =I+FKIF) -二 
: D=D77 


: WKR = IT 《DY 


:HTAB DREst1 
; PRINT 1] 
; 了 YXT 3085 


= IT -INT 妇 旺 + 
0001)j 


VTAB 《人 二 


FRI=L TON 
2 


: PDKE - 16388， 
:IF YX 环 = 人 HR 2 ER 7 


IF PR THEN 3660 
IF 灶 = "PP 9R = CHR 2 
THEN PRKE 9,29 


1 VYTAE 20 
: 7RIHNT 
:6905U8 33 


BQ5UE 和 年 约 5 


: POKE 8,23 
:FRRNT DR 本 

; FRINT CHRS 113) 
: PRINT 093"PRH#02 
:60T6 368 


中 认 人 


RETURK 


人 


8 


; 《入 


芭 本 


全 8 2 
: HTAB 1 
2 


; WTAB : 


: FRINT 


IF PR THEN PSKE 人 ,18 

309UE 9306 

0685 计 有 和 和 丰 

FOk -~ 19359，0 

: VTAE 21 

;上 化 L ~ 9358 

: VTAS 22 

HTAB 1 

;PRINT “ANY kEY ESNTEINUE，，"; 
PRiNT ”人 G”) 


; JNWERSE 


:PRINT "ES5*; 


1 村 朋 上 L 


FRINT >》 了 SR 本 ENE” 


; 6E3 


: 0NY 亲 = [CHAR (27》 8070 3700 
: 从 和 人 


:RETURN 


50958 1 


: TAB 1] 
;HTAR 8 
;PS 特征 让 
: 上 半 


TEXT 


; 六 性 
3 民生 了 类 了 于 克 休 其 长 营区 长 条 长 藉 人 其 晤 其 党 全 作 基 全 半 商 计 尖 其 长 作 


其 基 其 必 其 长 其 其 生生 沉 这 生生、 


HTAB 1 
:FRINT “3 


HB 


:FRIRT “tn 

PRINT TAETL ix TAR( 15)*DESK 《 
有 LENBER9。 T 和 4 呈 D) 条 

PRINT Th8( 1)s4ay TAB( 201sFOR ; 


了 有 日 40) 攻 

PRINT TAB 1) 52 了 9B{( 20) YOUR 
TAB 460) 宝 ”和 

PRINT TAR 1 二 TAB LS) PERSON 
和 人 L USAGE" TAR 44 和) 证“ 

HTAE 】 


: PRINT “二 
: HTAB 450 
PRINT “长 


3780 


PRTNT “长 闪 二 才 区 守 芝 二 关 科 攻 二 振作 


: INVERS 

:PRINT 丰 汪 拓 EN 
NORHNAL 

: PRI 本 T “其 攻 其 其 长 攻关 宁 攻 区 本 其 生 才 


7 


-了 


: 人 =1 


4850 
2 


3649 


3850 
3870 
3 的 
SB9 
300 
S920 


9340 


: FLAG = 


60T0 240 

DATA DISPLAY EVENT CALENDAR ， 
,aCREATE CALENDAR jDNTH ,ohADD 
/CHANBE/7DELETE EVENTS" DISPLAY 
/CHANGE YEAR "asQUIT 

DATA “JANUARY ,FEBRUARYY ,ARC 
He shPRILE MAY JUNE JULYY， 
ahU6UST"， "SEPTEMBERa ,DCTOBER9 ， 
"NGVENMBERY , DECEMBER 

DATA MAIN MENU 

DATA 1862,0,32,117)253，160，2 

DATA 138,145，195,200,169，0 

DATA 145,105,200,169，2,145 

DRT9 105,76,57 243 

DATA 350293130, 5403031313 
0 31 .3631 

DATA "DONE MONTH 
YEAR" ， MAIN 峰 划 


FULL 


39640 


<980 


3990 
4000 


40 1 
4020 
4030 
4840 
4050 
4060 
4071 
4080 
4090 
4100 
4t10 
41 2 


41 3 


0ATA “SCREEN ONLY PRIN 
TER -8 CBE 人 AI 全 和 EN 

0ATA “ADD 上 VEN 2 
HANGE 7 DELETE 让 WENTS 本 AIN 本 E3i 

DTA “YE9 NO ” 

]F 线 Ek (222 = 3 了 THEN PRINT 
PEEK 《222) 


: 60T0 4030 


IF PEEK (222) = 6 THEN 4060 

60T0 4120 

PRINT D 和 PENNS(F)YR4 

PRINT 0 下) 2CLGSE" 3 (下 }YR 和 

PRINT ;DELETEYM 儿 (和 ) YR 林 

PRINT DOPEN 本 (F) YR 

PRINT D 和 RETESH 本 (F) YR 

PRINT 昌 0oa 

PRINT 村"CLGSEYH 革 作 ) YR 

POKE 216, 

RESUE 

TEXT 

H0ME 

V = 8 

IF PEEK 1222) = 4 THEN YX 本 = ， [35 
K 由 1TE PROTECTED 。 


; 505U8 630 
: 60T0 4200 


4140 


I PEEK f222) = 8 THEN y 地 ="” 工 / 
0 ERROR ~- CHECK DRIVE 900R “ 


; 805SURB 830 
: 60T0 4200 


410 IF FEEK (人 222 = 9 THEN X 于 = ”DIS 
K FULL -~ JINSERT ANGTHER DISK 
， 005U8 8S0 
: 60T6 4200 - 
4160 F PEEK 222) = 10 了 HEN X 地 = "FIL 


上 JIS LOCKED--UNLOCK 2? 《人 YAN) 2 


; 60SUR 830 
: CALL 85338 


23 


CALL 65338 


: PUKE - 1636970 
:ET 
: JIF LEFT 可 《1 = “NOR 


LEFT 和 .1 和 1) = HR (110 
THEN PRINT 


: PRINJT ”CANNDT CONTINE ” 
:END 


中 


PRTNT 


' 疼 =S 


; IF PESK 222) = 


4 REN X 本 = "PR96 
FAN NGT 9 931 和 KK 


: TEXT 
HE 

: 60S58 8 
:=9 


; X 二 = 


CANNDT CGNTINUE" 


: 8038B 838 


4 了 


; END 


站 PEEK (人 (222 = 
LOLKIR6 FILE 


1 了 ER 于 = ” 铬 
IN PRSSRE59” 


: VTRAB 8 

; [CALL - 848 
6050U8 SR 

: PRINT 

PRINT 了 于 UNLOTER2 本 本 (FF ) 站 有 

: 60SUB 1110 


中 9 


4200 


0TQ 入 2 


HOME 

PRHNT "ERRGR ”PEEK 12221” THN 下 
E ”全 《219) 二 258 + PEEK (21 
3 

VTAE 20 


: HTA8 1 
;PRINT “PRESS ANY KEY TIREONTINUE， 


9 
: POKE -16388,b 


: CET 冰 
42 记  LU 9 
4220 Hi = PEEK 《人 3894) 


69 = FE8KK 人 95) 


2 ON FEEK 36 YY 0TD 4097 


4 


4 人 


， VTAR 


PR RAT ERRERT YE 有， 


YY 


: VT88 22 
:PRINT "RETURN》 TO KEEP SAME YEAR 


4258 


避 


YA 12 


:CALL - &6 
:，VYAR 12 


PUT E 枯 ERRR 《和 


RU 


0 
之 
42 人 9 


4230 


站 


J YY 和 = 和 症 7 
IF LEN 《YY 《 
下 YAL YY 1753 0 
?3359 60T0 4259 
YR 末 = 
= INT (VAL 人 YRS) 
人 GSER 43 


6070 3700 


中 


二 


4350 
本 的 


全 70 


No YN 


光 (4 
0 -tYAYO00- IN iiY 
ee = 站 ) / 400 - 
让 7 400j) = 


MT -DT 
(7 关 信 -INT 访 ) 


NEX 
RN 


攻 = 


EU 


: If RIGHT 杀 1 STR (人 2 = 200 


THEN CN = CN =- 
4380 D = (人 (Y- (004 CN -1! 
:ID>-1 THEND =99 
4390 攻 = ] 
4400 H = 1 
4410 = (INT (2.6+ 上 -2 +kK+D 
+ JINT DA44INT ICN 7 4) 
- 人 2 [) 7 
4429 6= AhBS {X =- INT (YX) 
4430 FM = INT (76G+ .0000t) 
4440 RE 了 TURN 
4460 0T0 4489 
4470 FOR = TOIY+3Yy 
:AAA= FEEK 1) 
:= 有 + (人 32) # 195 
:8 三 8+t5tl ti29 
:人 R= 人 + 人 90) 半 04 
2 和 = 和 + (用 < 129) 人 和 和 
:人 = 六 + (用 《 LO 0 
】 RN HR 于 《请 》， 
: NEYT 
:RNT CHR 末 1S) 
:人 TURN 
45 呈 人 了 有 和 民事 号) ”PR# 攻 。 


PRINT CHR 唐 19) SONY 


FRI = 1024 J0 1920 STEP !128 


:805SU8 4470 
; NEX7 了 


FUR TI = 1064 T0 1960 5TEP 128 
805U8 4470 


: 址 X 了 


FOR IT = ;104T0 16186 - 384 (NR 
《 0 STEPF 128 


: 609U8B 4470 
: NEXT 了 


452 
49530 


PRINT CHR 事 《 呈 32PR#D" 
RETURN 


时 


rs t 
工 世 > 





[和 才 - 一 一 w 
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在 加 勒 比 和 墨西哥 的 十 月 
是 辐 风 季节 ， 时 常 有 同 风 侵入 
加 勒 比 岛 奥 西 哥 海湾 ， 膨 风 
所 经 过 的 路 糠 就 释 成 三 墟 一 般 
的 地 方 。 德 州 在 1960 至 19 
70 年 间 都 时 常 有 许多 风暴 侵 
入 。 所 以 今 我 想起 很 久之 前 有 
一 网 风 名 “ 怕 嘉 图 炎 顿 ”， 它 
侵入 城内 时 亦 伤害 了 6,000 
条 生命 。 

危险 的 风暴 是 一 个 航海 图 
程式 ， 而 在 监视 器 上 运 个 暴 怖 
是 会 经 汉 加 勒 比 海 和 墨西哥 海 
湾 。 当 风暴 的 出 现时 标 证 是 一 
个 图 形 旋转 物 。 在 过 四 方 图 出 
现 和 后 有 经 度 和 粮 度 的 限制 夭 转 
。 经 度 的 限制 是 959.1 至 99 
限度 向 西 ， 炉 度 的 限制 是 10 
至 36.9 限度 向 北 。 当 监 税 出 
现 图 时 是 从 副 程式 取出 。 所 届 
你 要 把 以 下 的 程式 罚 入 同一 磁 
碟 内 。 

过 个 程式 通用 於 APPLE 
HI 和 IIe , IIc ， 你 可 控制 属 
暴 的 行程 ， 而 当 你 输入 经 度 和 
德 度 时 就 要 注意 不 可 按 入 超过 
它 的 限制 数目 。 


程式 使 用 法 
你 房 动 运程 式 只 需 按 (了 
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-UN SERPENTS .COIL ) 
参看 ( 程式 一 ) ， 当 程式 进入 
电脑 后 就 现 出 加 勒 比 海 的 轩 画 
。 你 只 需 按 (RETURN ) 就 去 
到 第 一 个 目录 ， 你 可 看 表 人 )。 
这 个 目录 有 五 个 泪 择 : 1 ，B 
-EGIN NEW HURRICAN 
-E FILE 是 输入 是 风 的 路 
熏 。 首 先 你 需 给 它 一 个 名 和 所 
发 生 风 暴 的 日 期 ， 然 后 按 入 座 
标的 数字 ， 你 可 看 表 扣 。 座 标 
办 入 时 是 要 按 入 两 个 座 标 ， 而 
它 有 它 限制 数 月 ， 你 可 看 以 下 


8 


1.LATITUDES RANGING 
FROM 10.0 DEGREES 
N TO 36.9 DEGREE 
N . 


2.LONGITUDES RANGIN 
-G FROM 59.1 DECGR 
-EES W TO 99.0 DEL 
-GREES W . 


当 你 输入 所 有 座 标 和 后 ， 它 
会 问 你 是 否 再 需要 看 输入 的 座 
标 ; 你 看 完 就 问 是否 把 座 标 存 
入 磁 礁 内 ， 座 标 存 和 人 磁 碟 之 后 
就 去 到 表白 过目 录 。 

跟着 我 要 说 是 第 2 过 一 行 
oo (UPDATEVAEDIT CURR 
-ENT HURRICANE ) 是 和 
以 上 第 工行 园 择 很 有 关 傈 。 当 
你 按 上 逮 择 1 后 所 有 座 标 已 存 


入 人 磁 矶 。 如 再 想 加 上 座 标 ， 你 
眼 着 按 着 座 标的 键 ， 然 后 出 现 
一 名 (A TO ADD TO EN 
-D)， 你 就 需要 按 一 个 (A) 键 
， 程式 便 会 问 你 座 标 的 数目 ， 
你 输入 后 ， 它 自动 把 你 伍 输 人 
的 座 标 加 上 先前 的 座 标 ， 你 亦 
可 把 过 新 座 标 存 在 磁 奈 内 。 
到 了 第 3 愤 择 。(LOAD 
HURRICANE FILE) 是 把 
你 存在 磁 碟 内 的 座 栋 取出 帮 在 
运程 式 内 。 它 会 自动 站 你 会 不 
会 存 人 磁 碟 内 ， 即 〈《YVZN)。 
4 ，PLOT MENU .过 行 
你 按 和 后 束 能 去 到 第 2 个 目录 。 
5 ，QUIT 是 雕 开 运程 式 
的 出 口 ， 以 上 都 是 第 1 个 月 氏 


当 第 1 个 目录 介 胡 完 和 后 ， 
应 说 第 2 个 目录 。 过 目录 有 7 
个 屠 择 : 1 ，OVERLAY 双 
-IJIH Oo2 DEG GRID 。 运 
行 是 在 图 人 加 上 经 粮 煌 如 图 白 
一 样 。 当 你 选择 1 时 是 没有 任 
何 指示 ， 你 只 按 工 和 后 再 去 看 图 
就 得 知 。 

2 ，PLOT THE STOR 
-M 是 你 把 座 标 输 入 在 程式 内 
时 再 按 过 一 键 ， 就 在 圆 人 内 出 
现 一 个 唔 几 ， 而 过 同 风 的 图 形 
是 进 样 的 (On) ， 它 会 跟 你 所 
输入 的 座 标 路 穆 前 进 。 当 有 风 几 
消失 和 后 就 会 出 现 辐 风 所 行 的 路 
线 。 你 亦 可 加 上 经 篇 入 。 现 在 
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谈 到 第 3 寻 择 ，BEGIN MU 
-LTIPLE STORM PLOT 
内 有 1 和 2 的 旋 明 ， 你 可 纺 一 
看 看 。4 ，CLEAR FOR N 
-EW PLOT 是 清除 图 内 进行 
的 程式 ， 它 可 连 经 继 线 一 起 清 
除 。 
而 第 5 屠 择 是 把 完 千 了 的 
轩 记 存 人 和 磁 健 内。 如 图 安 ， 当 
5 ，SAVE THE PICTURE 
ON DISK 进行 上 时， 你 名 给 
它 一 个 名 字 才 行 。 而 6 ，DIs 
-PLAY MAP 是 可 拭 程 式 内 
的 图 来 看 ， 即 图 允 ; 你 又 可 加 
上 经 绰 绿 ， 只 按 玩 择 (1) 就 行 
， 它 亦 无 其 它 用 不。 最 后 谈 到 
第 7 个 半 择 MAIN MENU ， 
当 你 按 7 键 和 后 就 会 去 到 目录 《 
1) 即 表 人 。 以 上 都 能 进行 过 
程式 。 


程式 输入 法 
危险 的 风暴 是 由 三 个 程式 


和 组成。 一 个 是 BA>IL 程式 ， 


而 两 个 是 机 械 傅 程式。 当 ( 程 
式 一 ) SERPENTS .COIL 诬 
动 时 亦 开 谨 了 ( 程式 二 ) SH 
- .BIG 和 (程式 三 ) 3 及.A 
-LPHA 。 你 只 需 RUN 5E 
-RPENTS .COLIL 了 吏 能 进行 


程式 。 

( 程式 一 ) 的 输入 法 
SAVE SERPENTS .CC 
-OIL 

〈 程式 二 ) 的 输入 法 
BSAVE 3SH. BIG ， 
A$$1000，LL$$651 

( 程式 三 ) 的 输入 法 : 
BSAVE SH.ALPHA ， 
A 和 900 , 工 香 651 

你 跟着 以 上 3 句 输入 方 行 ， 而 

程式 可 通用 於 DOS 3.3 和 


tooccoari Fr 2 字 
2 
， 4 
四 人 外 9 IE 。 
拉 时 


一 所 、\、 
下 
全 
1 e em 
= 人 
区 二 2 
"A ae 1， 吉 党 
| 1 < 瑟 人 
人 
下 aa 沪 ; ee 
二 | cr 
和 
由 | 
和 翅 
7 | im 六 。 
、 "个 、。- 一 。 弛 下 
和 RE 2 








0 ET ET 人 
和 二 er 0 ，、 new + 4 
人 ， 
四 4 
| 本 
| 
加 汉 
1 | 了 | 。 * 1 如 二 
[ > 猴 
人 
本 沁 “ 的 电 
轴 WAR 坟 4 “ 相形 。 本 人 
了 ee 本 
了 | < 
2 
0 和 四 
人 。 5 
人 的 四 1 7 1 人 
和 全 攻 YY 5 | JU 二 
攻 人 与 忆 全 - -~ 
SS ie 


PRODOS 的 磁 碟 内 。 


结语 


相信 有 很 多 首 狂 的 科学 家 
都 想 能 玩 运 个 程式 一 般 的 可 控 
制 大 自然 ， 笔 者 在 玩 吉 个 程式 
时 也 人 有 过 过 样 的 屋 慑 ， 曾 
位 在 玩 过 程式 时 相信 有 会 更 大 
的 满足 感 。 


1- ESDS RE EURSAICANE FILE 


YAEDIT CUKRRENT HURRTIPRAC 


HURRICANE FILE 


DT PENU 


1。 OVERLAY WITH 5 DEG Xx S DEG GRID 
。PuoT THE STORH 

=。SEGIN MULTIPLE STORM PLDT 

4。 CLEAR FOR NEW PLOT 

s。SAvE THE FICTURE ON DISK 
e。DISPLAY KMKAF 


7。 InIN 一 人 NSL 


程式 SERPENT .COIL 


100 于 全 引 (104) < > 3936 THEN 

PQKE 103, 1 POKE 104,96， POKE 
245740: PRINT 《HR 本 《4) RUN 

3SERPENT9.CQIL” 

110 060T0 620 

20 1 

130 POKE -14568060:DF = 1:0X = 
-1:0oyY=> -1 = 4EF = 0 


140 FOR TI = 1 TOF -1! 
150 IF XLTE+D< > 站 位 THEN 
60T0 230 
10 IFYLI+ 1 = 沪 人 THEN 46 
0 
170yY=WLtI)X = 久 LODY = 1 
180 IFXLI+tD 沪 IT THEN DY 
= -1{ 。 
190Y=Y+Dy 
200 FORK = ! T0 50， NEXT K; 60SUB 
490; IF EF THEN TI = F - {， NEXT 
: TEXT ;60T0 41440 
210 IFY=YWL+1I 60T0 350 
220 60T0 190 
230 IFYLIY+Y ID 
300 
240Y= YL = 六 人 T)DX = | 
250 IF IXLGTE + 人 XLTIN THEN DX 
= -1! 
260X=X+DN 
270 F9R 基 = 1 T0 50:， NEXT :69SU 
490: IF EF THEN TI = F - 1 NEXT 
: 下 EX :6800 1400 
280 IFXY= 六 TI+l 60T0 450 
290 60T0 240 
300B= (YLI+ -YLD)) AI 
(+1i - 阔 人 )) 
31I0X = 贡 ()Y = WLDD = 1:0Y 
= | 
320 IF XLGLI+ 1 《 呈 (THEN DY 


》 刀 人) 80T0 


29 


3 


= -1 
IF YLT+ 1 《号 人 THEN DY 
= -1! 


340 61 = FALSE:62 = fALSE:YH = 泌 


390 
400 


410 
420 
430 
440 


450 


460 
470 
480 


490 


的 0 
540 


40 


人) + BE DR 

IF hpBS ttYH -六 9 了 人 EN 
1 = JR 疆 
IF AS -人 >》15 THEN 

62 = 了 JR 比 

IF 64 AND NT 62 HE 本 六 = 其 
tf DxyY=Yt+Dy 60T0 400 

IF NO9J 61 THEN X = + DY 60T0 
400 

IF 62 THEN Y = Y + DY 

605U8 490: 车 EF THEN II = 了 - 
1: NET TEXT 80T0 1460 
IFIX= 六 人 + ANDY= 六 
It+1l) THEN 60T0 4950 


IFXz= 站 人 +1 THEN DX = 0 


8 


t 


IFY=YII+ 1 TBEN 0Y 


68T0 340 

PDKE 230464: HPLUT 站 人) YL 
IT 沪 人 + 切 YL 人 T + PPOKE 
230; 3 


NEXT 1 


CALL 7 名 
POKE 一 1416368703 GET 下 RS 
:TEXT :60T0 14600 


DF = -DBF:6!1 = FALSE: IF 0 》 


7 hND 0 273 人 RD 9Y > 7 AD 
0Y《“ 雪 9 THEN 61 = 了 引 

了 ID- INT (ID 7 4 4 = 

] THEN RT = 0 

IFID- IMT (DZ 4 4 
2 THEN RT = 48 

IF ID- INT LID 7 4 4 
3 THEN RT = 32 


9 人 0 


9 四 


580 


390 


400 


4610 
620 


IFID- IMTLD7 4 = 
0 THEN RT = 16 

IF OF 《DAND SI THEN XDRAN 
7 人 慌 ,Y 

IF IDF 》0 8ND 61 THEN  XDRAH 
8 AT 0 ,0Y 

ROT= RT:0! = Xigy = Y: IF 儿 


《0THEHID=ID+1 


681 = FALSE: IF 0 > 7 RD 人。 


273 ANND 0Y > 了 7 hND 0Y《 185 THEN 
6 > TR 赴 

IF IF OAND 61 THEN XDRAW 

7 AT YY 
IFDF4DOAND 61 THEN DRAH 

8 人 TXTY 

IF PEEK ( -~ 46384) = 155 THEN 
II=F-1l:s5F= 1 POkE -46 
308.0; 6094B 1700:， RETURN 
RETURN 

IIH LTD(50) LNB(1S0) XL150) YY 
L1950) 


63s0 0NERR 0T0 2060: IFER = 人 

0 REE = 12FALSE = 03NFLAG = 下 
LSE 

650 0 放 = CHR 本 (4 HCOLOR= 3 R0T= 
b; 5CALE= | 

660 60T 7 

470 PRINT :PRINT :PRINT : HTAB 


680 


630 


700 
740 


6: PRINT *PRESS 《RETURNy TO 
CONTINUE"; ，6ET Y$;， PRINT ，RETURN 
DR 1 AT 160.0: DRAN 2 AT 1 
63，188:， DRAW 3 AT 132,119: DRAH 
4 AT 239,29: DRRIW 6 AT 0,13 
HPLOT 44 T8 279;0 T0 279,18 
8 T0 0,198 T0 0.0 
RETURN 
PRINT CHR$ 《4) ;BLOGAD SH。B 了 
6,h41000" POKE 232,0: POKE 
233,146，POKE - 16304;0。 POKE 

- 16297,0，POKE - 16302,0: 


7 
730 


7 


PUKE 230 32，CALL 62450 
60S48 6580 
FOR X = 7698 T0 801， READ XX: 
PORKE XXX NEXT PRINT 3 和 
BLOGAD SHALPHA AS9008 

HgNE ; POKE - 16301,0， POKE 
232 0， PDKE 233,9， 60SU8 117 
0;， FPOKE 233,16， HPLOT 0,159 T9 
279 ,159;， HOME : VThAB 22: VTAB 
20，60SUB 670: PKE  - 16302 

0 

? 


750 : 
700 


7 
780 
7 


800 


840 
8950 


868Q 


870 


X = FRE 《0) 

TEXT : HOME ，HTAB 5; INVERSE 
，PRINT "SERPENT'S CIL HAIN 

NENMU* ， NODRNHAL : VTAB 5 

PRINT 1。 SEGIN NE 臣 HURRICA 
NE FILE*， PRINT 

PRINT *2， UPDATE/EDIT CURRE 
NT HURRICANE 。; PRINT 

PRINT %3， LOAD HURRICANE F 
LE* :PRINT 
PRINT s4， PLOT HENUs PRINT 
PRINT 5。 人 UIT 

INVERSE :， VTAB 20，HTAB !1: PRINT 


-ENTER 1 -5 3 NORNAL :6ET 


YIF Yi 0OR YY >》 95” THEN 
PRINT CHRS (7) ;60T0 850 

PRINT Y4 2Y = VAL (Y4) 0N 

Y 60T0 1260,1080,890,1450，87 

0 

HONHE ; VIAB 12: INPUT "ARE Y 

册 SURE YU WANT T0 8UIT2 人 Y 

/YY ONY( >》 60T0 

780:， 号 :EN 


880 ， 
890 ， 


30 


900 : 
910 
920 


HOME :，VTAB 12 

PRINT “NANE OF HRRICANE 《2 

FOR CATAL08) :了 NPUT ;Ht 
:YH = F 了 LSE 

IF LEFTS (HU 2) = HTHEN 

HH = 人 ID 全 《HH 和， 3) 

IF LEFTS (HU 31) =“?”THEN 
HONHE PRINT 042CATAL06": 507T0 

920 


930 


94 作 


950 IF Hd =“" ”560T0 780 

960 DX = 2: PRINT 0 和 VERIFY H，3 
有 

970 1 = 0:ED = 1 


980 PRINT 0 和 ;20PEN He ;HU 

990 PRINT 了 二;eREAD 和 ;HU 

1000 。 INPUT NANE 

1010 INMPUT DA 

10201=T+1 

1030 INPUT LTDT) 

1040 INPUT LN6(I) 

1050 60T0 1020 

1060 PRINT 04;CLOSE HH 

1070F=T-1: IFfWW=TRUE THEN 
60T0 1456 

1080 IF HS = THEH HOME ; Th 
12; PRINT CHR$ (7)"NO HURRI 
CANE FILE HAS BEEN LO0ADEDs， PRINT 
:; PRINT "PRESS 《RETURN》 TO R 
ETURR TD MAIN 人 EN SET 人 
PRINT ;60T0 784 

1090 HIE ， 朵 外 12， PRINT "00 
0U WANT TD EDIT THE RECORDS? 
{Y7N "3 6ET 灶 ;， PRINT ， 王 
Y = “Y" THEN 60SdB 1850 

1100 IF NOT ED 60T0 1130 

1110 HOME :PRINT *SAVE IN FILE 
H." ;HU PRINT (YA) 6ET 
ypPRINT YIF Y = "Y" 60T0 
2454 


31 


li20 了 FFY > 2 THEN 1 

1130 60T0 1450 

1140 : 

1160 ， 

1l170 YY =“THE": = 203:Y = 6: 60588 
1220 


1180 Y = “5SERPENT":X = 189:Y = 有 
: 609bB 1220:X = X + 56:Y = 
"9 60SU8B 1220 

1190 YY = “C0IL YX = 203:Y = 10， 6059UB 

1220 

HPL0T 238.60 T0 238 ,02 

RETURN 

FOR I = 1 T0 EN (Ys) 

DRAH ASC ( MID YI) - 
04 ATX+(TI- 17YEtEB8 
1240 NEXT II RETURN 
i250 : 

1260 : 

1270 ， 

1280 ED = 1 HOME : VTAB 19 INPUT 
ENTER NE 和 HURR 了 CANE 有 AH “ 
;HU IF HU = “60T0 780 

1290 NAHE 守 = HU PRINT ， INPUT 

ENTER DT DA 

HOME : VTAB 23: TNVWERSE ， PRINT 

ENTER 持 BRNAL PRINT ”《 

RETURN> TO TERSENATE ”PRINT 

“ALLONABLE RAN6ES:":， PRINT “。 

10.0 DE6N 《= LATITUDE 《= 36 

,9 DG 和 PRINT “59.1 DE6 并 
“= LON6ITUDE 《= 99.0 0E6 负 
2 VTAB 1 POKE 35;19 
1310 基 = 了 
1320 PRINT “RECGRD 提 ”3 类 
133 INPUT ?LATITUDE NBRTH， “3 及 
:IF WAL LS) > 0 THENLTDI 
kk) = YAL 《hn 60T0 1350 

1340F =# -4 POkE 35924: 60T0 
1380 


1200 
1210 
1220 
1230 


1300 


1350 IJNPUT 所 ON6ZTUDE WEST 和 
:LN6 人 KK) = WAL (6 杀 ) IF LN61 
K) = 0 60T0 1340 

1360 ]JF NOT (人 TD = 10 AN 
LTTD) = 36.9) AND (LN6 人 K 
) 》 = 59.! AND LN6G{K) 《〈《 = 

99)) THEN 80SUB 1400; 60T9 

1320 

!370K=Kt1 HOME ，60T0 1320 

1380 : 

1390 60T0 11440 

1400 PRINT CHR (7)， HOME ，PRINT 
“THE ALLOWABLE RAN6ES FOR PRINT 
LATITUDE AND LON6ITUDE ARE: 
"， PRINT : PRINT ， PRINT "1 
.0 DBE6 N 《= LATITUDE 《= 36,.9 

DE6 Na，PRINT -"59.1 DE6 由 《 

= LN6GITUDE 《= 99.0 DE6 负 

1410 60SU8 670:， HOME RETURN 

1420 3 

1430 :; 

1440 1: 

1450 60SUB 1690， IF NOT 必 LA6 THEN 
60SUB 1700 

1460 HOME ，VThB 2; HTAB 7: INVERSE 
: PRINT "CHART PLGT 关 ENU NORNAL 
; VTAB 5 

1470 PRINT “!，9VERLAY WITH S IDE 
8 X5DE6 SRID "PRINT 

1480 PRINT *2，PLOT THE STORH "1 

PRINT 

1490 IF NOT 汪 FLA6 THEN PRINT 。 
3。BE6IN NMULTIPLE ST9RH PLOT 
”PRINT ;680T9 1540 

1500 PRINT "3，TERNJNATE MULTIPL 
E STORN PLOT"，PRINT 

1510 PRINT 24。CLEAR FOR 省 由 PL0 
9。 

1520 PRINT 

1530 PRINT *%5，SAVE THE PICTURE 


32 


SN DISkK PRINT 
1540 PRINT “6，DISPLAY HAP" :PRINT 


1550 PRINT 7，NHAIN 汪 EN 
15680 INMVERSE : VTAB 23，PRINT 
RESS 《ESC》TQ 9TOP PLOT* NORHAL 


1370 VAB 2 人 2 HTAB 1 PRINT “ENT 
ER 1 -7 3 NORNAL : BET YY 
:于 人 放 人 人 THE 
PRINT 《HR 本 《7 60T0 1570 


1580 PRINT Y$:Y = 
1690 

1590 ON Y 60T0 2350,1740,1600 ,46 
70,2130 ,1660,740 

1600 JIF NMFLA6 = FALSE THEN HHFLAG 

= TRUE:， 60T0 1420 

16410 IFLA6 = FALSE 

14620:， 

1430 IF HFLA6 THEN HOME ;PRINT 
"NGTE:， THE MULTIPLE PLOT gp 
TION* PRINT 。 D0ES TH 
0 THIN6S - “PRINT ，PRINT 
:， PRINT 。 1。DISABLES ATONA 
TIC CLEARIN6":， PRIMT 0 
F THE STORN PL0T,。 

1640 IF MHFLA6 THEN PRINT ， PRINT 
"2。PREVENTS DISPLAYIN6 ST0 
Ri NAME*， PRINT 。 。 hND DAT 
Es*;，60SU8 470 

1650 60T0 1460 

1660 POKE - 16297,0;， PDKE -16 
304 ,0: 60T0 480 

1670 680SUB 1700，60T0 1460 

1480 HOME ，ENI 

1690 HOME :，VTAB 12; HTAB 14， PRINT 
"MORKIN6。。 ,= RETURN 

1700 RDT= 0: POKE 230,64; POKE - 
16297,0:， CALL 62450，60SUB 6 


VAL {Y$); 60SUB 


80: POKE 230，32: CALL 768: RETURN 
1710 IF HU = ”60T0 1080 
ti720 JIFFe<2THEN HOME :; TEXT 
: VTAB 12: PRINT 2 CURRENT HU 
RRICANE 上 ILE :PRINT “ 失 UST 1H 
AVE HoORE THAN ONE POINT PRINT 
; PRINT “PRESS 《RETURN>》 FOR 
PLOT EN" 6ET 2 PRINT ， 60T0 
1450 
1730 JIF NOT 几 LAG THEN 5609 2 
180 
1740 PKE - 16302,0: POKE 
304 0: POKkE - 16297,0 
1750 FOR JI = 1 JQOF 
1760 IFF4 =>1TJHEN I=f: 打 
; 60T0 780 
1770 If NOT 《tiLTD 人 ID) = 
LTD(I)《 = 36.9) AND (LN61(I 
) 》 = 99.1 AND .LN6(I)《 = 
99)) THEN II = F: NEXT :TEXT 
; 60SUB 1400: 60T0 780 
1780 人 LN) = JINT 993 - LN6(I)) 全 
17) 
1790 YL(I) = 
7) 
1800 NEXT 
t810 60T0 130 
1820 : 
1830 ; 
1840 : 
18590 ED = 4 FOR I = F + 1 TO 50， 
LTDU) = 0:LN6(I) = 0 NEXT 


~- 16 


》10 AND 


JINT (人 (3 一 上 和 (了 ) 去 


1860 PKE 34 2 VTAB 4 
1870 HO 溪 : PRINT ”RECORD 上 LhTI 
TUDE LON6ITUIE > 
1880 PRIS ”和 
外 5 了 RN 
1870 FOR J = 1 0 
1900 了 = 由 505U8 casF= ”二 


NORTH 


33 


2070 IF NOT ((TDIY) = 


人 
1910 Y = LTD(J); 60SUB 2610:P4 = 
P+ 
1920 Y = LN6{J); 60SUB 2610:P$ = 
P 玫 + et 人 
1930 PRINT 
194 IF 人- IMT TAI 10) 
= 0 AND 4 》F THEN INMVERSE 


:HTAB 3 PRINT “PRE5S 《RET 
RN> FOR 乓 ORE ”和 和 人 有 乓 六 3 和 E 了 
RPR 

1930 泪 XT 

1960 60SUB 670 

1970 YYTAB 24: PDkE 35923 INVERSE 
:PRINT “RESS 《有 ERN> TO 下 
ERNINATE "NORNHAL ， VTAB 5 

438 HOME RNT PRINT “和 三节 
RECURD 条 人 TQ ADD TO END) 2” 
:INPUT “YY = TINT ( YAL 
(Y$)): I 人 = 2 THEN Y = 
Ft+tlfz= 人 60T0 2010 

1990 于 了 = ”50T0 2090 

2000 IFY4LURYY>F THEN PRINT 
CHRE 《 方 ; 6070 1980 

2014 HTRB ONVERSE 下 天 寺 七 了 
DY) 3 NORNHAL HTAB 1 INP 吉 了 
DENGR “了 吉 

2020 F 个 = ”THEN 2040 

2030 LTDtY) = AL (人 

204 HTAB 0 INYERSE PRINT LN 
人 人 NGRNAL 天生 
上 L 上 9N6ITBLE 隆 8T 

L000 于 = THEN 2Z070 

2040 LN6{(Y) = V 人 L 《YY 外) 

>》 10 AN 
TD) = 30.9) AND (LNG(Y 
) > =59,1 AND LNM6(Y)《〈 = 
99)) 本 丰 N 69948 4400: 50TG 
20114 

2080 60 4980 


2090 PRINT "AhBAIN2(Y/N) sy， 6ET Y 
$ PRINT 
2100 年 灶 = Ya THEN WTAB 24; CALL 
- 848:， 60T0 1874 
2110 POKE 34,0，POKE 35,24:; HOME 
:RETURN 
2120 
2130 HOME ; VTAB 16: HTAB 5; INPUT 
*NANE OF FEILE， ;Hi 
2440 HOME : VTAB 16; HTAB 5 PRIHT 
"NGW SAVEN6 FILE ;HU 
2150 DX = 3 PRINT 0 地 *BSRWE"3 HU 
2000,L$2000， 
2160 60T0 1450 
2180 POKE 232,0:， POKE 233,9;， POKE 
230 ,64; ROT= 0 E 
2190 LH = LEN 《NANE 铺 ):D = LEN 
(GAY = 5:Y = 170:LE = LH; 
Y = NE# 
2200 HCOLOR= 0:I = LH 二 7: IF LD 
》LH THEN I = LD + 7 
2210 FIR = 1 T0 22， HPLOT 1 16 
5+T0I+3165+J; NEXT 
J: HCOLOR= 了 
2220 HPL0T 1,165 TO I + 3,165 T0 
I + 3,488 
2230 FORK =1T0 2 
2240 FOR j = 1 TO LE 
2250L = h9C 《NID 1) 
2260 IFL》= 好 HDL = 590THEN 
DRAWL - 64 AT YY 
2270 IFL》=46NL( =57THEN 
ORAL -17 8T XUY 
2280X =X+7 
2290 NEXT ] 
2300 LE = LD:Y = 0h4:Y = 180:1 = 
5 
2310 ENT 
2326 CALL 768: PUKE 232,0; PKE 
233,16:， PKE 230 32 


34 


2330 RETURN 

2340 3 

2350 POKE 230,64 

2360 FOR IJ = 13T0 153 9TEP 35 

2370 FOR 1 = 27 T0 272 9TEP 35 

23580 DRAW 3 AT IJ 

2390 NEXT i 

2400 HEXT 1 

2410 PKE 232,0 POKE 233,9: RBT= 
有 


2420 DRAH 39 AT 905: DRAN SO AT 


97,58 DRAH 235 AT 104 5 DRAH 
SB AT 19545: DRAW 3 AT 202， 
33 DRAW 235 8 209, 5 DRAW 37 
AT 260,5: DRA 拉 3 AT 267，53 
DRAH 23 AT 274,9 

2430 DRAR 3S4 AT 4 483 DRAU SA 
【1148 DRAW 了 人 全 全 4 各 了 有 及 外 
33 41173 DRAH 3 AT 111 
17: DRAN 14 AT 18，117 POKE 
2334 46 

2440 CALL 768: PKE 230,32; 6070 
1460 

2450 

2400 PRINT 0 全 ;9PEN 乓 3 HH 

2470 PRINT D 和 ;WRITE HH 

2480 下 RINT 

2490 PRINT 08 

2500 FR ] = 1 TO 

2510 IFLTD =0OORLNI = 1 

60T9 2940 

2320 PRINT LTD(ID) 

2530 PRINT LN6(T) 

2540 汪 EXT 

2990 PRINT 0 和 CLOSE ;HU 

29t0 5 = 0 60T0 1450 

2570 : 

2580 Y = STR 人 TY) 

2990 IF LEN (人 YS) = 1 THEN Y = 
2 


<600 和 了 RN X = 2 了 蓄 和 HE :WAB 2 


2410 PRINT CHR 地 《7) FILE HH, 
2620yY=Y 0 #"。 DID0ES NOT EXI9T*，fGSUB 7 
2630 竺 = STR 人) 0:H = 上: 60T0 784 
2640 Y 放 = LEF 了 TS (Y 守 2) +waa 1 2690 了 TEXT ，PRINJ CHR 本 17) 5ERR 
RISHT 本 《YY 可 人) GR 提 ";EE;9 | STATENENT 和 
2650 RETURN YEL: CRLL -868: 650SU8B 070 
2660 EE = PEEK (222):EL = PEEK : 诬 DK=S60T0 1460:， 60T0 
{2f9) + 256 生 PEEK 《219}。 CALL 780 
- 3288: IF EE = S THEN 1060 2700 0hTR 4169.0,133,25,133,27， 
169 ,32,133，26 1469 64133，29， 
2670 了 FEE = 255 THENK TEXT ，60SHB 1 的 ,0,177,27,145,25,200,208， 
1700; 68T0 1454 249 ,230 ,26,230,28 ,169 ,84197 
2680 IFEE =6bR IEE = 1410 AND ,26，208,239 ,96 


re 


程式 所 SH.BIG 


1089- 07 38 革 38 于 38 玫 于 
1600- 08 的 1 904 妇 有 好 1080- 3 于 于 57 于 于 
1008- 50 04 E 04 F0 04 08 的 1088- BF 27 4 17 37 05 15 了 BF 
1010- 38 00000000001495 36 1 7 7878717t7177 
1018- 19 19 外 全 36 BE 7 BF 0 1 06303053 珀 了 十 
1020- BF 3 17 8 BF 7 17 SF 10D0- 4F IF F9 IF FS FS EO 0 
1028- 5 了 47 球 17 17 47 47 1008- E0 0 4 493 493 49 49 91 
1030- 417 1717478 41717 10E0- 92 92 二 址 在 址 皇 3 
1038- 17 47 反 7 丝 了 ES 了 BE 10E8- 6 3 3 533 全 
1040- 19 3 15 36 15 3 在 录 juF0- 76 7636763 了 667676 
1048- s6 15 全 AS 815 4153 36 10F8- 76 3 05 76 了 全 76 
10350- 50 30 36 36 17 17 于 1100- mo 2 2005 2828 
1038- SF SC E IE7 t 2 3 1108- 20 2 2 20 05 28 28 28 
1000- 3 07 3 .201 382014 1it0- zz 29282005 2828 
1068- 17 24 24 24 2 24 2 27 1118- 2 2 0 202405 2 28 
1070- 1 IC IC 过 E4 所 叶 lt- 2 20202820 2 20 2 
1078- 村 时 和 07 .33833834 ll 2 人 3F60EF5 LE 
1080- 58 F 38 .07 中 政 政 于 11350- E4 17 17 36 3 47 17 
1088- 17 于 于 村 64 5 17 光 1138- 3 于 317 和 353636 
1090- E 于 村 1 和 于 3838 1140- 306 363FBF BE 17 
1098- s 37 全 20 75 31 到 外 1148- 37 人 有 2 2 05 28 28 
1060- 下 07 3 限 1 于 07 绢 1150- 28 29 2 20 29 2 20 15 
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1158- 
1160- 
1168- 


2D 2D 202014S 1415 15 
1 3FF6CE 3636036 
SBHs3s63636 到 7 


讶 六 - 儿 钙 狂 颖 通 禾 年 


1178- 
1180- 
1188- 
190- 
1198- 
了 一 
1199- 
11B0- 
1 88- 
11C6- 
1168- 
11D0- 
1108- 
1tE0- 
1158- 
11F0- 
11F8- 
1200- 
1269- 
12410- 
1218- 
1220- 
1228- 
1230- 
1238- 
1240- 
1248- 
1250- 
1258- 
1260- 
1268- 
1270- 
1278- 
1288- 
1289- 


人 


D8 DB DB D8 DB 24 0C 罗 
243C073838382845 
20 24 iii 3 37 
IE 于 338380738 如 
4C 40 柜 0426068 全 如 
0 [88b0600600 
F8 DB DB DB DB DR DB DB 
?8 DB DBE DB 4C 60 81 02 
Itptoio 的 88D8D 
0 000006014634E 2 
EICFF SA 下 征 下 
SF IF073867008080 
1 18 1494819090808 
08 08 08 48 F8 04 20 20 
202020206001600 
F8 DB 93 142 87 F8 JIF 全 
iF tF 56 56 56 56 56 56 
IF tf tf 97 97 97 97 96 
9E 9E IEIOE IEI0E75 企 
75 20 5 08 18 48 18 48 
18 18 1 08 DB 38 38 07 
383838383 卫 3838 
07 33F478BF 3F 
38390733F38 07 
38 了 于 07 382735 的 00 
6tC 640C 25 20 15 2 28 
2020290528280528 
45 28 20 28 20 20 64 2 
20361E4IEF74LE 179%F 
BA FRR SF FA 2 3 49 49 
09 24 64 SC 07 206C89 
92 92 22 E4 th4 0K6 20 0 
2005 28 20 1C5E4 3F 07 
E40C 20 04 E6 4 2 15 
6E 29 的 49 29 15 FS 6E4 
IF tigEGE 人 E 革 6038f8 


CD 
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1298- 
1280- 
12h98- 
1280- 
i288- 
12L0- 
1248- 
1200- 
12098- 
12E6- 
1253- 
1280- 
12f8- 
1300- 
1308- 
1310- 
1318- 
1320- 
1328- 
1330- 
1338- 
13540- 
1348- 
1350- 
1358- 
1360- 
1368- 
1370- 
1378- 
480- 
1389- 
13590- 
1398- 
13A0- 
13h98- 
138R0- 
1388- 
1300- 
1 38- 
1300- 


98 32 0E 2E 20 20 15 45 
5 15 15 2 20 2D 28 2D 
2 20 45 AD 2D0 15 60 2 
20 .28 20 28 20 25 SC 于 
E7 的 0353f77 特 1 
20 4528202D14E 际 17 
177 0 双人 氏 多 四 的 加 
c40C 20 20 4E 36 F4 了 F 
3 08 .08008080809 
it6 648 05 E0 09 DB D8 0 
08 18 .0805 200C 1908 
20 忆 494949312518 
18 DB DB DB 48 24 38 0 
ticle2014C08 205E0 
17 318148149 190 全 
08 F8 t8 07 60 48 09 50 
DB 1!8 38 04 60 DF DB D8 
18 Be 87 92 的 E5 08 朋 
DB3FSF3FSF 24 人 2 
2 20 2 345 二 芋 gF 呈 
DB DB DB DB 83 3F 07 20 
3 她 3SFt7zF208F 
3F37F4IE07383938 
3 于 绪 革 于 革 3FI7 
3 38607 200C20 有 20 
20 20 20 28 E4 IF 3SE 07 
20 60 24E41C 270C 2 
20 2014520145405 28 05 
28 AD AD 5 45 20 20 15 
15 45 20 h8 45 AD 15 36 
BF IF DB D8 D8 DB DB DB8 
E3 18 06 48_ .04 20 20 F 旺 - 
DB D8 DB D8 DB DB DB 了 和 E 
08 93 92 92 92 3E 3F 07 
89 3FBF 3E 07 38 97 08 
3838 3 于 寻 20202C 
20 20 外 05 20 45 15 DC 
18 18149i8318148 1818 
il860.50C243C 玫 
SSF0738382054 3F 


1308- 3 SF 7 38 38 于 3 07 
13E0- 38 07 3 呈 玫 于 省 的 
13E8- 2 38 了 F SF SF BF 8B7 12 
13F0- 9 F6 村 240438 17 
13f8- 37 企 F7 27 BF 于 26 
1400- 05 2 1 06 50 24 0C 人 
1408- 0 220 282005 28 
1410- 2 20 20 20 20 20 20 和 
1418- 2 15 20 45 AD 15 和 20 
1420- 所 攻 E7 2 15 0 和 
1428- 人 有 1 1S 人 0 人 0 AD 和 
1430- 如 2 纯 址 了 2E 20 0 
1438- 2 AD AD FS3F 17 3 飞 
1440- 了 守 07 3 引 于 于 陡 
1444- 27 08 08 08 08 08 48 48 
1490- 49 49 49 49 49 09 64 F5 
了 11458- 2 05 28 20 Ah8B 49 49 49 
1400- 49 DL 18 07 38 20 DC 0B 
1468- 18 Bf DA DB 63 05 SC 于 
1470- F8 ti 20 4 于 20 人 41C 
1478- DfF DB8 0E 40 49 49 01 20 
1480- 48 01 50 DB 3B 3 OC 
1488- 1 蕊 DF 23 67 E4 1C IC 
1490- 17 86 02 18 FF 33 76 作 
1478- 76 3 F6 07 20 54 IC 1 
1460- 世 0 2425 08 .08 08 08 
14A8- 64 0C E4 1C SF 97 07 E7 
1480- Fe 07 F8 08 08 08 DB8 3 
14B9- FF 60 0C0 15 全 49 99 92 
14C0- 92 02 08 08 16 38 了 E F7 
148- 3 87 00 和 8 RN 抽 
14D0- DB 92 F2 FF DB 935 32 27 
14D8- 37 27 07 20 00 43 02 本 
14E0- 3 二 27 .04 00 41 02 54 
14E8- f4 99 17 04 00 66 8A NN 
14F0- 08 01 8 80 80 有 0 00 0 
14F4- 8 00 00 40 80 00 00 0 
1500- 4 8D 8 OA 0 16 1C 08 
1508- 18 18 04 20 20 20 20 20 
1510- E4 EO EO 68 869 00 00 0 
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1519- 0 0 所 00 00 00 16 16 
1520- 00 00 00 04 20 BO 92 1 
1529- D6 16 D6 6 06 096 06 06 
1530- 16 tfF 外 tF 十 直人 F 十 
1538- 3F 16 16 26 56 96 B1 86 
1540- 16 1 16 40 49 49 49 49 
1548- 49 49 49 01 EO FE0 F8 {F 
1550- IF 1F IF 04 80 60 的 0 
1558- 20 E0 20 40 41 08 08 0 
1540- 08 08 08 8 18 18 18 48 
1568- 人 0 00 00 00 1 06 人 
1570- D6 16 06 1 06 1 16 16 
1578- 1 1 19 46 40 49 09 04 
1580- 20 48 0 00 0 4 00 0 
1598- 所 040 00 00 00 08 0 00 
1590- 0 00 00 95 6 09 4C 0K 
1598- 08 08 08 08 08 08 4 4 
15A0- 1 tl8 tiCi8etc tedic di9 
1588- IC 8 1C t8 CC 90C20 
1580- 4 0 00 00 00 00 40 的 
1588- 0 0 0 8D 8D 80 95 8 
15C0- DC 9A 18 18 318 18 18 18 
15C9- 1 48 1 18 49 19 18 18 
1500- 18 40 CO0 4F 02 9F 9F 9%F 
1508- 9F IF 9F 9F 9F FA FA 12 
15E0- 4 00 00 0 DF DB 98 FB 
15E8- iF SF 4tF FEF 人 FF 二 
15F0- IJjF IF IF 1F 4D 49 49 49 
15F8- 49 89 82 81 8! 8B1 B4 16 
1600- 16 40 1 44007 0000 
1608- 18 24 29 24 0C 0C 35 1 
1610- 18 28 32 3038 36171417 
1648- 27 08 086 38 20 00 1E 37 
1620- 3 17 17 3F 4 08 08 08 
1428- 01 38 20 38 27 23 23 04 
1830- 00 和 各 人 了 抽 后 舱 
1638- 18 23 20 23 24 3 12 1 
1640- 22 29 35 31 31 28 32 3 
1648- 3E 22 18 08 18 38 3F 28 
1450- 00 


程式 天 SH.ALPHA 


0900- 28 00 52 00 41 00 媳 00 
0908- 7C 00 89 00 95 00 人 2 00 
0910- 80 00 BE 00 [8 00 0 00 
0918- EL 00 EB 00 F9 00 07 01 
0920- 14 01 2001 2F 01 3E 0 
0928- 4C 91 57 01 64 41 71 01 
0930- 80 01 8E 01 99 01 由 0 
0938- hB 01 有 F 0 82 01 8 0 
0940- CC 01 D6 01 E3 01 F2 01 
0948- F) 01 08 02 18 02 23 02 
0950- 31 02 08 3F 24 21 29 28 
0958- 32 2F 3 3 18 23 04 04 
09460- 00 际 242C2D00E5 3628 
0948- 32 IE 3F 27 24 00 24 B 
0970- 24 0C 20 15 16 12 1E 玫 
0978- 07 20 04 00 48 24 26 20 
0980- 15 3 36 IE 3F 27 24 00 
0988- 00 39 27 24 20 20 36 12 
0990- 12 3F 了 24 04 00 39 27 
0998- 24 20 20 44 418 18 13 36 
09hA0- 06 00 18 24 0C 20 15 8 
0968- 3A 0E !E 3F 07 20 04 00 
0980- 3 24 2 09 31 36 37 3 
0988- 3E 18 23 24 00 2F 24 了 
09560- 17 12 32 红 00 07 0 
09C8- 49 24 34 12 32 4E 3F 07 
0900- 20 04 00 3F 24 2C 09 31 
0908- 17 46 45 3E 18 23 24 00 
09E0- 24 !8 24 34 12 32 2E 20 
09E8- 20 00 18 24 38 34 32 3 
09F0- 2E 09 21 24 24 3C 32 00 
09F8- 24 !C 27 34 12 36 2E 09 
0A00- 214 07 28 24 24 04 00 41B 
0A08- 24 0C 20 15 36 3 1E 了 F 
0hl0- 07 2004003F 242C2 
0h18- 15 36 33 18 33 36 00 00 
0h20- 18 24 05 28 35 31 36 1F 
0h28- 0E 15 颖 SF 20 04 00 下 


0h30- 242020 15 36033 33 3 
0638- 3 18 43 24 00 15 村 20 
0640- 0L 2 15 16 28 32 十 3F 
0848- 07 20 的 00243L2F 09 
0A50- 535 12 38 3326 00 12 18 
0h58- 24 54 12 32 15 20 0 24 
0860- 24 24 00 04 138 24 34 12 
0h68- 2 2 22 21 21 24 24 00 
0h670- 04it2434123225 28 
0878- 30 51 21 24 24 34 00 15 
yhA80- 蕊 IC2C09 3 1 16 15 
0h488- 王 18 23 00 04 00 07 38 
0890- 20 00 09 36 33 1 36 06 
0698- 00 05 28 20 于 3 1 12 
0AA0- 3 3 20 2007 001236 
06h8- 23 00 3 393 00 00 12 
0h80- 04 00 0 0 1 1 1B 17 
0h88- 095 00 上 f 24 00 20 15 36 
0hC0- 3 EF07 2 和 2648 
0AC8- 08 21 00 生 24 24 13 32 
0AD0- 12 如 0700 人 0 
04608- 攻 村 41718086iE2E 2 
06E0- 30 00 2 20 208C 于 17 
0AE8- 1 31 09 3 IE 3 07 20 
0AF0- 00 08 21 244 二 13 36 2 
0AF8- 20 55 33 07 900 于 24 20 
0800- 0 359 12 3 人 芋 于 27 
0808- 00 1 守 240C20 415 16 
0810- 33 3 人 芷 3 07 2004 00 
0818- 0 0 SC 3 37 2 0 
0820- 000720201C 于 17 
0828- y6 31 3 此 2005 20 07 
0B30- 00 20 24 1C SF 17 36 3 
08358- 1 攻 E20 05 2004 00 59 


来 


矶 Fr FEz07rofl: 本 
(P: Y) 水 了 (4 < 人) 


程式 12a 集 | 
/1 97 


， 人 0 


17 Yety 个人 mn 0 


局 LU 人 人 vt 

(0 Fr)b7 7o 7)73 ， 人 攻 妨 有 ke 
1 有 gr 全 4& `，mMZMYT . mto 
网 1 2 
( 。 


人 


VD ppRiw 


ChL 


/) 


出 
大 
1 

乱 巡 


) 





AAA 


由 
| 


小 型 打 间 


人 时 按 下 < 忆 REITUR 


这 是 一 个 用 频 果 低 解 像 图 
案 造 ;成 的 小 型 打 井 程 了 式 ， 可 以 -- >> 妇 使 会 在 吾 闪 上 出 现 “ 
丙 人 同时 玩 的 ， 用 挟 SPFALCEE x 2 成 “0”， 看 淮 能 节 移 过 
了 BAR 灰 玩 拌 伞 置 ， 去 到 你 三 上 因 取 胸 。 
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小 型 打 并 程式 


7 FOR IT =0T0O3 READ 0()，HNEXT' 


; JIN C430) :DATA Geg ,88.TIE 
, 拓 和 ,6 13，21 613,21,6,13，21 
1.9,5,7 32 14 7,8,9，3 6 
,5,8,2: FOR 1 = 0 TQ 25，RE 人 
CtI) PRINT ，HEXT ，6R ，COLOR= 
3，INVERSE 


8 FOR I=s0T041 HLIN423AT1 


4+1081: 儿 B532 AT9+ 
8tiI: NT :FIRN=0TII 
; VT 则 ftP /7 3) .7: HTAB [ 


13) 5= 料 + BiHt(P 二 了) 至 呈 ) 
=1-Ti2: FRI=0702 
: HTAB CtP):， PRINT 了 人 + 6 到 
NIT (0))T=T+( 人 -21 
T= ID)) + 8 NE 条 
9 FIRF=0T1lpPp=P+l-tp= 
8 ES9F = 人 WP+1) = 0 + 
人 N= 9 WEXT :，F9R TI = 9T0 
23 STEP 2:7 = Z + (人 (CD)) + 
NtCGE + 1) + 关 人 术 2)) 
2 》9); PRINT ， PRINT :4#EXT 


:HL = 人 = 9) + 7 SEXT PRINT 


(P)。， GET 64:8 = 6 = CHR 全 | 0 和 (7 + 2) 
WE 5 人 本 | 程 并 
过 是 一 个 用 joystick 入 下列 的 指 分 : 一 一 


来 控制 的 简单 给 图 工具 ， 答 幕 
中 央 会 出 现 一 个 1536x135 
4 点 的 方 格 ， 你 所 能 和 给 画 的 箱 
导 束 是 在 吉方 格 内 。 你 本 以 用 
键 部 上 0 一 “的 归 字 键 来 先 摆 
颜色 ， 跟 着 你 便 要 用 joyst 
一 ick 来 吐出 所 喜 炊 的 图 案 
， 按 下 button oO 有 时 每 次 
只 能 奸 出 一 点 ， 但 只 要 按 著 
一 utton 不 放手 ,和 幕 
上 便 会 出 现 连 续 不 断 的 直线 。 
营 你 想 把 萱 幕 上 的 圈 案 记 下 时 
只 须 按 下 RETURN 链 跟 著 键 
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BSAVE PICTURE ;42000,L4iFFF 


过 时 你 的 美 五 胶 案 便 已 被 存 人 
磁 秦 内 ; 又 如 想 把 力 案 从 磁 夸 
中 攻 出 蛙 ， 只 须 按 以 下 的 指 全 
HGR 

BLOAD PICTUREE 

RUN 20 

便 可 从 新 载 人 你 以 前 所 旱 的 图 
案 寻 你 加 以 修改 。 





简单 烩 图 程式 


10 FOR A = 768 TD 783: READ B， POKE 


A, 8 NEXT ，DATA 3,0,8,0,13， 
0,14,0,99,21,30,7,0,45,0,0，POKE 


二 于 te 芋 上 


抬 个 程式 是 训 你 可 以 在 畔 
人 了 了 BASIC 程式 时 知道 其 在 机 
械 三 的 相对 地 址 ， 沉 你 执行 了 
过 个 机 械 码 程式 俊 再 族人 所 需 
的 BASIC 程式 ， 跟 着 键入 “ 
委 行 号 数 ”， 相 对 该 行 号 数 的 
机 械 码 地 址 便 会 出 现 。 例 如 想 
知道 行 1 0 0 的 机 械 码 地 址 ， 
只 需 键入 “4& 工 00 ”,， 之 后 
每 幕 便 显示 出 其 相对 的 机 械 码 
地 址 。 

链 和 人 和信 了 整个 程式 合用 以 下 
的 指令 存 人 磁 矶 上 : 一 一 
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“23210: POKE 233, 3 Hg ，VTAB 
18:，H6R : HCLO9R= 7:， HPLOT 4 
8,!4  T0 205,11 T0 205,146 T0 
206,144 T0 206,11 HPLOT 205 
146 T0 09,146 T0 48,11 T0 6 
7 了 11 T0 67,140: SCALE= 1 = 
136:Y = 178:，XDRAW 1 AT YY 
= XN=YXz PINL (0 7 2+ 
135JY= PDL {(t) 72+15:D = 
PEEK 《49250) 《 127 XDRANH 1 
AT 寺 DRAN 3 -= 《 PEEK 149 
249) 127) AT - (1 = 200。 
9 Y: HPLOT 并 Nt+( -AN+ 16 
EDzlt)TDXY4+(-YY 
lo0) 羡 (= 1 = PEEK 《49 
152):H = H+f-H+F- 7 
)t 人 Fe 184) 4 (人 ff >》475)，HCOLOR= 
H: IFF( >441 THEN XDRAU 人 有 7 
X,Y: 60T0 20 


BSAVE 【LOCATOR 六 500 , 卫 3 


当 要 用 程式 时 只 须 刍 和 人 ”3 一 
RUN 工 OCATOR ” 便 可 开始 
使 用 。 





寻 地 址 程式 


0300- 19 4 四 8 Fo503 9 12 80 
0308- F6 03 9 05 有 F7 03 4 
0510- 00 05 20 567 00 20 52 上 7 
0518- 20 18 0 90 415 20 征 FI 
0320- 和 由 205E0 FDA 98 A5 
0328- 9% 20 4 f9 20 全 FD 4C 
0330- 05 50 20 3 FF 4C 03 E0 


一 


本 玩 21 翻 













各 位 贰 果 用 家 月 刊 的 读者 
, 你 在 某 场合 应 玩 过 或 看 过 人 
们 玩 21 点 ， 适 种 成 人 玩 戏 是 
一 种 很 刺激 的 玩意 ， 在 游戏 进 
行 时 ， 每 人 都 要 拿 着 自己 的 金 
钱 投注 。 而 在 闽 果 电脑 水 有 秆 
样 的 程式 给 各 人 去 玩 。 希 望 各 
人 得 到 21 点 的 乐趣 。 


讲 玩 21 点 只 是 两 个 人 玩 ， 


” 你 是 其 中 一 个 玩 者 ， 电 脑 是 


AT 
到 8AA7AFLA 8 


二 = 三 王 图 你 全 克 R 和 到 9 Ta ma wm 
站 一 mA 
AAA 疙 HH 
本 六 和 太一 一 一 
2 EL 
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[SS 
库 机 避 “ 


壮 家 。 而 游戏 以 图 案 方 式 玫 示 
， 在 监视 器 上 是 一 张 张 嘻 的 出 
现 。 程 式 有 许多 数字 来 代表 五 
年 不同 的 投注 你 可 看 ( 程式 ， 
1 ) 。 

游戏 即将 开始 。 你 可 看 到 
在 监视 器 上 有 两 副 牌 $ 在 下 方 
是 你 的 牌 ， 你 可 一 一 看 到 牌 的 
数字 。 首 先 壮 家 发 出 每 人 两 张 
牌 ， 然 后 按 上 投注 的 数字 〈1 
一 5 )。 践 着 程式 会 间 你 是 否 要 


牌 ， 如 你 要 牌 只 需 按 了 键 ， 
不 要 牌 就 按 S 键 。 当 你 牌 面 的 
数字 已 超过 21 点 时 ， 监 秽 器 自 
动 题 示 出 你 已 输 的 文字 和 琼 输 
它 的 投注 数目 。 若 你 肯 了 电 鹏 
， 它 会 写 出 你 已 鹏 和 胸 和 后 的 投 
注 数目 。 假 如 你 的 牌 面 是 (8 
，3 ) 点 ， 妇 是 (11 ) 点 ， 程 式 
就 会 间 你 是 否 要 沉 试 加 多 一 张 
或 以 上 的 牌 ， 因 需 你 只 需 一 焦 
(10) 或 (J、(Q)、( 民 ) 就 
能 成 (21) 点 鹏 出 。 如 你 玩 了 
(Y)， 而 叉 是 像 以 上 的 情形 般 
得 到 21 点 的 应 。 你 的 胶 注 就 
会 增加 。 如 你 半 (N)， 你 就 算 
21 点 ， 但 胸 注 就 不 会 增加 ， 
你 可 随意 遗 择 。 还 有 另 一 情况 
， 你 的 牌 如 是 (9，9 ) 点 ; 
妇 是 相同 点 数 ， 程 式 会 问 你 是 
否 把 过 副 牌 分 需 两 副 先后 去 玩 
。 吉 李 你 可 随便 愤 择 。 在 纸牌 
的 下 方 有 你 的 纸牌 的 各 数 和 你 
投注 的 数目 。 和 游 戏 进 行 上 时， 入 


形状 表 。 在 过 形状 表 内 共有 二 
十 二 种 图 案 ， 分 别 是 2 一 10， 
A，J，Q，K 及 四 种 不 同 花 ， 
分 别 是 红心 、 黑 桃 、 方 格 及 梅 
化 。 但 程式 中 只 用 了 以 上 的 十 
七 个 图 形 ， 其 余 的 五 个 是 用 来 
给 你 自由 发 挥 ， 更 可 把 它们 用 
在 其 它 的 捷克 六 戏 上 。 


程式 的 输入 


在 弃 玩 21 点 内 的 〈《 程式 


1 ) 是 APPLESOFT 程式 ， 


你 可 用 SAVE 或 RUN 过 程 
式 就 行 。 当 你 要 把 程式 存 人 磁 
夸 时 ， 只 需 按 以 下 的 步 照 做 
就 行 。 
SAVE BLACKJACK 
〈 程式 2 ) 是 机 械 三 程式 
" 它 古 由 ( 程式 1 ) 起 动 的 。 


你 的 牌 是 ( A，K)， 电 脑 会 你 要 存 人 磁 碟 内 就 按 以 下 的 指 
自动 出 现 你 的 跨 利 和 注 数 。 冰 分 :一 
萤 你 能 有 5 张 牌 都 不 能 超过 2 BSAVE BLACKJACK. 
1 且 以 外 ， 你 都 是 取 鹏 了 。 SHAEE,A#900 ,LS46 
程式 所 是 负责 牌 面 图 案 的 < 
< 课 玩 21 点 > 
(程式 1) 
80 JF PEEK (104)《 》64 THEN PDKE 03,1; PRINT CHR (4)"RUN BL 
16384 ,0 POKE 104,64: POKE 1 ACKJACK' 


100 J = 


1 
120 


140 


150 


170 
180 
190 
200 
210 
220 


230 


240 
250 
240 
270 
280 


290 


300 


1 


PEEK 78) =J+ ft 下 
] 2355 THEN J = 295 
FOR I = 1 T0 3:NUH = 
);， NEXT I: POKE 202, 
PRINT CHR 要 《4) “8LOAD 了 BACK 
AL 。SHAPE ,有 8900” 

TEXT : HOME ，POKE 232 0 POKE 
233,9:， DIH DECK{52)T(2) :LO00 
T=10 

VTAB 2 HTAB 153 PRINT “外 


RND (1 


0ME T0"， FOR I = 1 T0 1000， 了 胜 厅 


; 60T0 1780 


IFF=2THEN 230 


60T0 270 

IfF=2THEN 210 

60T0 .250 

IFWzlTHEN PRINT “YOUR ! 
6T HAND L0SES 1 COIN，， RETURN 


PRINT "YOUR 1ST HAND L0SES 。 
; 甩 ” COINS。a。 RETURN 
IFW=s1lTHEN PRINT YOUR 1 
8T HAND WINS 1 COIN,ay。 RETURN 


PRINT "YOUR !ST HAND WINS “3 
由 ”COINS 23， RETURN 
IFNz=1THEN PRINT *Y0U LO 
SE 4 COIN"， RETURN 

PRINT *Y0U L0SE 与 内 二 COINS， 
s RETURN 

IF Ni= ITHEN PRINT YOU W 

N 1 COIN,。 RETURN 

PRINT *YGU WIN ， 用 ”COINS, 
RETURN 

[FAW=s IlTHEN PRINT YOUR 2 
ND HAN9 LO0SES 1 COIN, RETURN 


PRINT “YOUR 2ND HAND LOSES “ 
划 C0INS，， 全 TURN 
IfFRN=1l THEN PRINJ "YOUR < 


N\ 


44 


320 


330 


344 


350 


ND HAND WINS 1 LIN RETURN 


_ PRINT “YOUR SECOND 人 NI 二 了 NS 


上 有 二 COINS," RETURN 

VTAB 23: HTAB !:， PRINT "YUR 
NET 6AIN = *L00T; 5 COINS,，。 
:RETURN 

VTAB 24: HThB 1 PRINT HIT 
ANY KEY TO CONTINUE (ESC=6U1 
T) 95; 6ET 峙 ;IF ASC ( 峙 ) = 
27 THEN POP ，60T0 1980 
RETURN 


370 SUIT = 4: IF DECR(A) 《40 THEXA 


380 : 
400 


420 


430 


SUIT = 3 IF DECK 人 A) 《27 THEN 

SHIT = 2 IF DECK 人 A) 《4 于 HE 人 

5 = 1! 

RETURN 

HCBLOR= 0 HPLOT 90 CALL 6 
24514 

FOR IJ 1T0520ECKT) =] 
全 XT 

FIRJ = To z= 
( 切 524+ 1) 


INT 《RNL 


440K = DECK(J) :DECKt)》 = DECK (TI) 


460 


;DECK(I) = 攻 人 EX 

HOME ，H6R ; ROT= 0 SCALE= 
1 HECDLOR= 7 HPLOT 0 0 《ALL 
62454: HCOLOR= 0 


470 DECK(51) = DECK(L) DECK(52) = 


DECK 2) DECK50)》 = DECK{3) 


480A= 1 = 1 60548B 370:; 6505U8 


490 
500 


5980 
920 


530 


20103h = 2 
FUR 1 
605UB 
和 = 1 
FOR TI = 上 1 T0 2508 几 XT 

60$88 370: 于 SUIT = 2 THEN 
DECK(3) = 呈 作 (3) ~ 1 

if SUIT > 3 THEN DECK{3) = 了 
ECK(3) -~ 2 


= 1T0250; NEMT 
370:C = 2;， 60SH8 2010; 


540 


9950 - 


9 


600 
010 


30 
640 
0 
6 
670 


690 


700 


710 
730 


740 


IF SUIT = 4 THEN DECK(3) = 0 

ECK(3) - 39 

HPLOT 1;0 T0 51,0 T0 51.71 T0 
71 T0 1 

FIR I = 2T050 STEF 5， HPLOT 
1;0 T0 1,71; AMEXT 

FOR I = 1 T0 70 STEP 5， HPLOT 
1;1 T0 51,1， NEXT 


HCULOR= 5 FIR 1] = 5 T0 50 STEP * 


9 HPLOT 1 0 T0 I71 NEXT 
FRI=35T0705STEP 5 HPLOT 
1 T0 31 TI NEXT :HLOLOR= 

0 

FOR ITI=1lT0250 NEXT 
A = 4 60$U8B 370:C = 2 645UB 
2100:A = 5 


FOR I = 2 TO0 26:DECKITI) = 0 
人 ET w 
IF 号 CK(3) >》310 THEN DECK《3) 
= 10 

If DECK 人 4 >》 30 THEN DECK 4) 
= ! 


If DECKk(3) + DECK(4)》 = 1 AND 
DER = 1 THEN 2230 

IF 中 bK4S) + DECK 人 4)》 = 于吉 
DECK44) = 1 THEN 2230 

IF 号 CK 人 ED) >》DECK(2 THEN 
DECK(2t = DEC 人 DECK(22) = 
DECR{Z) FF 革 = “NS0T0 780 

下 呈 愉 人 = DECKE2) THEN  VTAB 
2 PRINT "00 YOU WANT TO SP 
LI THESE CARDS (YAN) 2 "3 6ET 
可 = “NTHEN DECK(21 

) = DECK{t DECK(22) = DECK{ 
2); 50T0 950 

下 ff > YY THEN 700 
HCLOR= 7， FOR JI = 57 T0 107 
:HPLOT 1 80 7T0 IT 151 NEXT 


FUR 1 = 1 T0 250 姨 XT 
495 


760 5C = 2:h = 5 HCOLOR= 0，80SU8 
370:， 80SU8 2010;DECK(21) = 
ECK{1) :DECK(22) = DECK(5) 
IF DECK{(21) 》10 THEN DECK12 
1) = 40 
IF DECK(22) 》!0 THEN DECK12 
2) = 10 
IF DECK(23) 
3) = 10 
IF DECK{24) 
4) = 10 
IF DECK{25) 
5) = 10 
IF DECK(26) 
6) = 10 
IF IECK(52) = 99 THEN 2310 
IF DECK(21) + DECK(22) 《  》 
14 0R DECK(23) 》0 THEN 950 
IF DECK(21) = 1 0R:DECK(22) = 
1 THEN HOME ，VTAB 21;， INVERSE 
:HTAB 13，PRINT "BLACKIACK 
4 NORNAL ，60T70 930 
IFF = 1 AND FS = sN* THE VThB 
22; HTAB 1 PRINT 2D0 Y0U 册 
NT T0 DOUBLE DOMN (YY7N)? 9 
BET 峙 ;IF 几 ( 》2Y2 ANI 
几 《  》*N THEN 890 
IF 时 = Y* THEN 2300 
60T0 5950 
PRINT "YOU WIN 和 二 4 CO 
N5,*:L00T = LO0T + (全 冯 4，609UB 
330: 60S8 340:T(F) = - 4 
(0) = 0; HOME :60T0 1060 
950 T 人 F) = [ECK(21) + DECK{22) + 
DECK(23) + DECK{24) + DECK12 
5) + DECK{26): IF TIF) 》21 THEN 
1030 
970 T(0) = 0 FOR 1 = 21 T0 26，]F 
DECK(I) = 1 THEN TO) = T10) 
+ | 


780 
790 
800 >》!0 THEN DECK{2 
810 10 7HEN DECK(2 
820 >》10 THEN DECK(2 
830 10 THEN [DECK 《2 


840 
860 


870 


890 


900 
910 
930 


?80 
990 


1000 


1010 
1020 
1030 
1040 


1490 
1060 


1080 


10490 


1100 


1 


] 140 


1150 


1160 


1170 


1180 


全 EXT 【 

If TO 人 22 THEN HOME ，VTABR 
21 PRINT “YOUR TOTAL ITS “和 
(有 

IF TI 人 > 立 和 MD TIF) + 0: 
22 THEN TIF) = 了 (人 F) + 10 PRINT 
”0OR “T(F: 

80S48 so0 

陡 了 作 ) 22 THEN 1250 
L00T = L00T - 攻 

HOME : VTAB 2 INVERSE FRINT 
“BUSTED NORNAL 人 下 及 有 
14; PRINT 了 了 人) INVERSE ， AT 有 
2 PRINT "BUSTED 5 NOQRMAL 


603U8 190， B0SUB SS 
TtfF) = - 二 60SU5 340， HOME 


IFF= 1 AND SF = NTHEN 
1900 

IF TII) = -ThNDTI2) = - 
{ THEN HOME :60T0 1900 
IFF=2ANDT) >》0THEN 
1440 

HCOLOR= 7; FOR 7 = 80 T0 15 
1;， HPLOT 0,1 T0 275,T，NEXT 

; HCLOR= 0 
[C = 人 :DECK(29) = 人 :有 = 52:F = 
2:f4 = "Na 60SUB 370，605 则 
2010:A = DECK(29) + 1 
80SUB 370， IF SUIT = 2 THEN 
DECK(3) = DECK(3) -13 
IF SUIT = 3 THEN DECKIS) 


DECKk(3 -2 
了 f 5UIT=4THEN DECK(S) = 
DECK13) ~ 39 


FOR IJ = 1 T0 250: NEXT 多 = 
2: 605 归 2010 


1200 DECK{21) = DECK(S2) DERK(22) 


= DELK 1A) :DECK(23S) = 0 DCK 
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电 六 
了 2 


1 


1230 


1 
1270 
12980 


1 所 


1350 


1360 
170 
1380 
1400 
1410 


1420 
1440 


(24) = 0 号 人 人 235)》 = 
0) = 
TIFf) = 号 ER 人 2 YY DECKLZ22) + 
DECKR123 EC 人 24) + DC 人 2 
5) + 呈 ECK{120) 
60T0 789 
由 = "9 FA TAREN 
24: HTAB 全 了 NVERSE :， PRINT 
“DG YOU NANT TO IT 矶 有 全 T 有 RD 
(HA 性 寻 NORNAL 
JF 人 = "3 THEN 13 
IF 2H5 THEN 1250 
Lo+l:h= 和 fl 8655U5 3 
70， 60548 2080 DECK(20O + PC) = 
DER 0T0 760 
If > 和 AND 
1400 
HOME :IF 6THNL0 = 
LO0T + { 刘 二 上 全 
IFfLz3STHENLOT =L007 + 
(村 天 与) 
VTAB 21 TINVERSE ， PRINT "Y 
的 HAVE CCRDS AND SNLY 
(人 FPOENTS9，” 
IFC=9THN PRINT “YU HH 
VE WODN 相关 NS 
NORHAL 
IfrLzeTHEN PRINT Yo AH 
AVE RON 站 攻 0 QTIN9S 和 
NORNMAL 
6803U8 330 
TIF) = 0T 人 0) = 0 609U8 340 
: HOME ; D0T0 10840 
If TO > 
22 THEN T(f) = 了 人 F) + 1 
JIF F 和 = “NTHEN 1440 
60T0 1120 
上 = 1 HLOR= 7 FOR I=0TO 
51:， HPLT 1I0 TO0 ,71 NEXT 
: HCLUR= 03DECKCS) = [ELK TS 


DEL 和 (2 


WA 


5 THSN 


0 
143D DELRKf29) = 有 有 = 233 60388 37 
0: 609U8 2100:8 = DECKI29) 3 
二 人 
1460 DECRL2S = DECKL3) DECK(22)》 = 
了 EC 长 (向 ECK2S = 症 DESCKR 人 ES 
) = 0:0ECK(25) = DECKT26) = 
0 
1470 FOR TI = 2 T026 了 kf 人 
) > 19 THEN DEC = 二 
1 480 NEX 
1490 FOR JI = 2 TO 26 了 DECK4I 
) = 工 THEN DECKIO) = IEt (OO) 
二 凤 
13s00 有 拓 人 
152 TG) = 胰 区 (2t) + DECKL22) + 
DECK123) + DECKL24)》 人 DECK12 
5) + DECK(20) IF TO >》 21 THEH 
[6 
IFLz5ANITO 《22 THEN 
HOME :，VTAB 21 PRINJT “DEAL 
ER HAS FIWE CARDS UNDER 22，? 
;603U8 190:L00T = LO0T - 册 
605 绰 330 60548 340: IF F = 
1 TREN HOME : 6070 19690 
1]540 IF 5 AND TO 22 AN 
F=2 THEN HOME :WTAB 22 HTAR 
1 60SUR 290:L00T = LO0T - 月 
; 605U8 330 609U8 340， HOME 
:60TQ 1900 
;350 了 了 (22 THEN HONE ，VTRR 
PRINT “DEFEALER SS TOTAL 了 S 
的 及 
1560 JF DECKkO > 0 AND TO + 1 
0 人 22 THENTO = TI + 10 
3 PRINT ”0R " T(9) 
1J710 IFF=2ANDTo) = -THEN 
VTAB 22 HTARB 1 PRINT sYO 
R 15T HANDB 3S TOTAL WAS “T1 
)， 605U4B 50 80588 340， 6070 


153 


< 
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1600 

1580 VTAB 22; HTA8 1，PRINT wY0 
R TOTAL 15 汪 T(F)，60SU8 330 
;60SUB 340 

1600 IF TO (36THENC=C+1 
:8 = 用 + 1 608U8 370; 60SUB 
2100;DECK(20 + C) = DECK(A) : 
60T0 1470 

tl0 IF TO《 TI AN TO 《T 
(2) THEN T(0) = 15， 6070 140 
0 

1820 JIF TO 》T() AND T(0) 》T 
(2) THEN 1680 

1630 IF 4T(0) 》 = TD AN TI) 
( -40RIT0 》=1T 
2) AND T(2) 》0) THEN 1680 

1640 IF TO) 《TI THEN T(0) = 
15: 80T0 1600 

14650 IF TI0)《 T(2) THEN T(0) = 
15， 80T0 1600 

1660 HKE ，VYThB 21， PRINT *DEAL 
ER HAS Tt0) ;HE JS BUSTE 
Ji 

1680 了 F TO 》24 人 ND TU 》0 AND 
T( 《22 THEN L00T = LO0T + 
中 VTAB 22， 805U8 170:， 605UB 
330;， 60SU8 340， HOME ， IF T1 
2) = 0 THEN TEXT ，60T0 190 

1690 IF TI0) 》21 AND T(2) 》0 AND 
T(2) 《 22 THEN LO0T = L00T + 
Wi VTAB 22，HTAB 1; 60SUB 31 
0: 605U8 330 

1700 IF TO) 》21 THEN 1760 

1710 IF TI 》=T() AND TD) 》 
0 THEN L00T = LO0T - W HOIE 
: WTAB 218 PRINT *DEALER 但 IN 
5."; 605UB 190，60SU8 330，IF 
T(2) 》0 THEN 60SUB 340 

1720 IF TO (TU AND TU) 》0 


THEN LO0T = LO00T + 村 VTAB 
22: PRINT "YOUR 18 了 生 人 MD 了 RE 
TS THE DEALER :60SU8 170， 605 
330 

IF 0 > = 了 2) ANDT(2) > 
0 THEN LO00T = 00T - 负 NO 
; VTAR 21: 人 PRINT “0EALER 中 E 
TS YOUR 2ND HAND. 603U8 25 
0: 609UB 330 
1740 IFT OANDT) TO) 

THEN LO0T = LO + 并 HGME 
; VTAB 22: PRINT YOUR TO0TAL 
BEATS THE IDEALER， 60SU8 1 
70:.603U8 330:， IF T(2) >》0 THBH 
606U8B 340 
1750 IF Tt2) >0AND T(2) >》T(0) 
THEN LO0T = LT + 基 ， HOHE 
， VTAB 22: PRINT “YOUR 2ND HH 
AND BEATS THE DEALER, "605bB 
210; 508U8 339 
1740 60SUB 340:， TEXT :RONE :60T0 
1900 
1780 HO 人 E ，VTAR 4 HTARB 12， INVERSE 
PRINT “BLACKSACK NORNAL 
; VTAB 1 
1790 VTAB 7 PRINT “YOU MAY MA6E 
R it-5 CO0INS 90N EACH HAND， 
If Y0U SPLET，Y0UR WAGER I9 
DOUBLED 和 AUTOMATICALLY 
1800 PRINT "DEALER 本 INS ALL PUSH 
ES (TIES) 
1810 VThB 12:， PRINT "========z=== 


1730 


1820 VTAB 13， PRINT "= SPECIALS， 


1830 VThB 14: PRINT "="33 HThB 4 
0 PRINT ?= 
1840 VTAB 15;， PRINT "= FIVE ChRD 
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5 TUTALJIN6 LESS THAN 22 PAY 
==5T01 5 CARDS ThALIHN 
6 LE39 了 THAT == 22 PAY IO 7 
二 古 

1850 TAB 19 PRINT “= 并 TB 和 
0; FRINT "s” 


1860 WTAB 19: PRINT "=243 HTRB 4 
0 PRINT "= 

1870 88 208 PRENT "= BLACKJACK 
PAYS 4 TD 1 

1880 TAB 21; PRINT "==========< 


一 
一 


1900 VTAB 23， HTAB 1 PRINT 2“HOM 
MANY COINS WILL YOU SET 人 = 
5)2" 3 HTAB 24》 PRINT ”全 SC=tR 
UIT) "3 VYTAB 23: HTAB 56 GET 
则 
19140 IF ASC (W) = 27 THEN 1980 
1930 = 00=0f 下 = "SUT = 10 
TO) = TO0T) = 0 
由 = 0:DECK(O = 
时 = ASC (W) IF 呈 《 49 0R 
由》53 THEN 4900 
HOME :FF = 1 和 = 和 -48 8 
12 HTAB 15 PRINT “SHUFFLIN 
6": 60T0 400 
Ifso5ANDT0 《22THEN 
RONME ATAR 22 PRINT “ 臣 和 
ER HAS FIWE CARDS UNDER 22， 
;5054B 24:LO0T = 上 00JT - 贡 全 TB 
20; PRINT "YOUR NET 6AIN =“ 
L00T:， 605U 340:， 50T0 1900 
1980 TEXT :HOME ;， VTAB 4 PRINT 
“ARE YOU SURE YOU WANT TO 由 
IT2 和 GET 2 PRINT : HO 作 E 
IF 4 >》 ”60T0 1900 
1990 EN 


1950 


1960 


1970 


2010 HCQLOR= 
2020 IFC=1THEN HPLGT 1,860 T0 
51,80 T0 51,151 T0 1,1541 T0 
80:X = 20Y = 105 
2030 FC > 2 THEN HPLOT 57)80 TQ 
107,80 T0 107,151 T0 57,151 T0 
57,.80:X = 63:Y = 105 
2040 IFC=37THEN HPLOT 113)80 
T0 163,80 T0 463,151 TG 1 
151 T0 11380 = 138:Y = | 
05 
2050 IFC= 4THEN HPLOT 169)60 
T0 219;80 T0 219,151 T0 169 
)151 T0 169)80:1 = 194:Y = 1 
05 
2060 IFC=5THEN HPLOT 223,80 
T0 275)80 T0 275,151 T0 225 
151 TD0 225480;X = 250:Y = 1 
(5 
2070 JFC= 4THEN HPLOT 22540 TD 
275,0 T0 275,71 T0 225;71 7 
225,051 = 250Y = 25 
2080 60T0 2174 
2100 IFC= 2THEN HPLT 57,0 T0 
107;0 T0 107,71 T0 57,71 T0 
57,07 = 82:Y > 25 
zt10 IFC=3THEN HPLOT 113,0 TO 
163.0 T0 163,71 TO 113,71 T0 
1134X = 138y = 25 
2120 IF 4THEN HPLOT 190 TQ 
219.4 T0 219,71 T0 169.71 T0 
169 0 = 1945Y = 25 
2130 IFC= LTHEN HPLO 1.0 T0 
51,0 T0 3871 T0 4171 T0 1)0 
= 26Y = 25 
2140 IFC=5STHEN HPLOT 225)0 70 
.275,0 T0. 275,71 T0 225,71 T0 
225)0;X =.250:Y = 25 
2150 IFC=4THEN HPLOT 225480 
T0 275,80 T0 275,151 T0 225 
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7151 T 225;80X = 250:Y = ! 
05 
2170 0N SUT 60T0 2180),2190,2200 
2210 
2180 RT= 32; HCOLOR= 5 DRAW 14 
AT JY t+ 20: DRAU DECK(A) AT 
+21Y + 44 ROT= 0 DRAN 
外 CKLA) AT YX 217 -23 HCOLOR= 
0 RETURN 
2130 DRAH 15 AT X9sYDECK《A) = DE 
CK 人 AN -13 ROT= 2 DRAN DE 
CKIN ATXY+Y 2 YY 44 ROT= 
0 DRAW DECK(A》 AT X =- 21Y - 
2352 RETURN 
2200 HEOLOR= 5 DRAH 16 AT XY3D 
ECKRIA) = DECK{A) -~ 26: ROT= 
2 DRAN DECKA) AT X + 21 Y 
+ 44: ROT= 0 DRAN DECK《A) AT 
X -~ 21 -23 HCOLOR= 0 RETURN 


2L10 DRAH 17 AT XeYDECK(A) = DE 
CR( 人 ~- 9 ROT= 32 DRAH DE 
CKN ATY+2Y + 44 ROT= 
0 DRAN DECKA) AT X -215Y - 
< RETURN 

2230 HCDOLOR= 7 FOR 1 = 0 TD0 543 

HPLOT 1 0 T0 了 71 NEXT 

“240 HCLOR= 0 = 1 = 5 

2450 603U8B 370， 605U8 2100 

200 VTAB 21 INVERSE ，PRINT 2 
EARLER HAS BLACKJUACK 1 乓 ORNAL 
:LO = L00T - 旬 

<2210 605SU8 190，60SU8 330 

“2280 5605U8 340， TEXT ，HoE ; 68070 
1900 

23004 = 3 = 5 60SUB 370; 605SUB 
20103DECK{23) = DECK(S) DECK 
(52) = 99， 60T0 780 

LS10 Tt = DECK{21) + DECK(22) + 
DECK{(23) 和 = 旭 苹 2 


2320 HOIE : VTAB 21: PRINT “YU 


HAVE DOUBLED DONN AND MUST S 
TAND ON THESE THREE ChARDS -~ 


0900- 46 00 25 00 58 00 7h 00 
0908- 9 和 00 8 00 DC 00 0 01 
0910- 20 01 40 01 74 01 83 01 
0918- 00 01 FE 01 23 02 8E 02 
0920- 0 03 f 03 IC 03 FI 03 
0928- 23 04 3F 04 5 04 49 09 
0930- 20 45 3F 3F 17 60 09 和 
0938- FF 08 38 25 40 49 35 3F 
0940- 3F 3F 3F 25 20 20 20 35 
0948- FF DB 38 25 40 49 35 全 
0950- D8 38 25 40 49 35 FF DB 
0956- 38 07 00 49 2 20 20 15 
0940- 3 3F 3F 3F 25 40 49 35 
0948- 31 37 37 了 F 3E 3E 3E 2 
0970- 20 2 20 35 3F 3F 3F 3F 
0978- 07 00 49 29 20 20 15 3F 
0980- 3F 3F 37 60 49 35 37 F5 
0988- SF 3F 2E 20 AD 37 35 FF 
0990- 08 37 20 2 20 F5 3F 3F 
0998- 3F 00 49 49 09 35 3F 17 
09hA0- 20 35 FF BF 60 29 3E IF 
09hA8- 38 17 20 2 20 20 了 3E 了 
0980- 3F 3F 77 49 09 35 37 35 
0989- 3F 00 09 29 20 2 35 了 3F 
09C0- 3 了 3F 37 35 37 0 和 9 3 
09C8- 3F 3F 77 20 20 20 3E 2E 
09D0- 3E DF DB 2E 20 20 2 人 
0908- SF 3F 3F 00 4 29 20 20 
09E0- 45 3F 3F 3F 37 60 49 F5 
09E9- DB 18 37 40 49 3 了 F 于 
05F0- 37 20 20 20 35 FF 08 37 
09F8- 6 49 35 FF 58 37 2 20 
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Y0R TOTAL 了 3 “2T() 6054B 
330: 603U8B 40: HOME : 60T0 
1440 





0A00- 2 F5 3 3F SF 0043 2D 
0808- 20 20 35.3F F 于 37 扣 
0h10- 49 55 FF 0D8 77 49 29 二 
0h1t9- 37 BF S5 87 35 37 20 00 
0h20- 49 29 20 和 有 于 了 玫 3 引 17 
0h28- 如 49 29 瑟 呈 08 37 4 
0h6350- 49 29 扰 3S 引 3 了 2 20 
0638- 20 AD FF 08 38B 2E 4D 49 
0h40- 3S5 FF DB 38 0E 2 20 2D 
46486- 让 于 于 070049 2020 
0h50- 20 3N SF SF 3F 2E 40 09 
0h58- 3S5 FF DB 37 60 49 35 3 
0h660- 3F 于 77 2D 20 2D 3E 2E 
0468- sE If 18 37 20 20 2D FS 
0870- 于 于 用 004932040 29 
0478- 2 20 15 SF SF SF FF 38 
0h80- 77 0 29 4D 09 35 FF DB 
0hA88- FF 38 25 40 6D 49 35 FF 


0A90- DB FF 38 和 40 6D 49 35 


0438- FF DB FF 38 25 4D 6D 49 
08A0- 5 FF D8 FF 38 17 20 6 
4hh8- 20 20 2D F5 SF SF FF 38 
0A80- 千 070049 29 20 20 20 
0hAB8- 七 于 于 于 四 29 3 和 
0AC0- 下 和 了 DFI13 6 29 了 
0h58- Df 37 20 20 F5 下 下 00 
0hD0- 49 29 20 和 3F 3F SF 17 
0h08- 20 4D 29 35 FF 98B 38 2F 
0AE0- 40 49 35 FF D8 38 2E 4 
0AE8- 49 55 fF F8 38 25 4D 69 
0 3 于 IF37720202 
0hF8- 二 下 于 和 07000094 


0800- 49 09 D!{ FF 08 38 25 4D 
0808- 09 F5 FF 18 37 40 29 1E 
0810- 3F 3F 2E5 2D0 AD FF 38 2E 
0818- 48 29 15 FF D8 37 60 49 
0820- 29 05 00 15 3F 47 20 2 
0828- 15 3F 3F 3F 17 20 20 20 
0830- 20 45 3F 3F 3F SF 3F 17 


0838- 20 20 20 20 20 20 15 3F 
0840- SF sf 村 了 玫 4720 
0848- 20 20 20 20 20 20 20 15 
0850- 村 于 于 于 于 于 于 下 
0858- 沾 2 20 20 20 20 20 20 
0840- 20 20 355 对 对 F SF SF 
0868- 守 守 肝 生 20 20 20 
0870- 如 20 20 20 20 % 导 3 
0878- FF If 3 和 s FE 20 
0880- 20 00 49 29 20 20 1 村 
0888- FF DB8 DB8 SF SF 00 15 SF 
4890- 17 20 21 车 玫 于 了 7 
0898- 2 2D0 2 20 15 SF 于 线 
08hM0- 革 3 17 2020 2 20 20 


08A8- 20 15 引 3F SF SF SF SF 
0880- FF 17 20 20 20 2D 20 2 
0888- 0 20 45 于 于 于 村 下 
08kt0- 了 下 于 3 沾 和 2020 20 
0848- 2 20 2D 20D 20 35 SF 于 
08D0- FF 了 了 守 SFF FE 
0808- 20 20 20 20 20 20 20 2 
08E0- 39 3F FF 直 SF 了 
08E9- 3F 77 20 20 60 69 29 20 
08F0- 20 华 结 FF 38 SF 18 SF 
08F8- 7 49 09 20 20 195 中 于 


000- 村 各 2 如 035 村 村 玫 


0008- 07 00 15 引 17 20 20 45 
ti0- syF 7220 20 2 
0C18- 15 SF 引 车 于 结 47 2 
0C20- 20 2 20 20 2 15 村 于 
40C28- SF SF SF 于 SI7 2 2 
0030- 2 20 20 20 20 20 15 下 
0038- ssF 于 于 于 下 于 
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2D 20 2 


0440- 儿 E 2 20 2 好 

0C48- 20 必 于 于 下 于 于 玫 
00C50- 革 呈 20 2 20 2 272D 
0058- 二 FF 于 于 用 多 2 
440- 4 20 2 攻守 于 于 和 全 
0C68- 20 20 全 守 O 0 001 


0070- 于 417 2020 1453 3 于 
0C78- 17 20 .20022003 车 玫 
0C80- 于 37 2020220 址 村 
0k88- 车 咱 2 60 20 2 0 
0C90-.20 15 结 革 全 于 全 村 
0098- 了 47 20 20 20 00 00 2 
OA0- 20 2 43 3F FSF SF 
0CA8- 3 3F 车 3F2E 20 20 20 
0580- 20 20 20 2 20 35 村 玫 
0C848- s 扯 车 于 于 十 作 
05t0- 20 20 2 0 00 20 20 2 
0CL8- E FF FF FF 外 
0CD0- 20 4 649 09 20 DE 08 8B 
0C08- 20 E 于 00 49 09 15 玫 
05E0- 17 20 20 5 于 SF 人 17 
0CE8- 20 20 20 20 15 引 了 SF 
0Cf0- 半生 2060 2 20 1E 
0CF8- sf f 38 FF 00 49 09 15 
0000- 17 2 245 sf SF 玫 
0008- 17 20 20 20 20 1 牙 绪 
0010- 于 守 和 2 202020 
0018- Fr 引 直 攻 熙 4 09 15 
0020- 了 07 0049 09 45 SF 17 
0028- 20 0 25 于 于 于 41720 
0030- 2 刀 20 让 SF 于 SOE 
003s8- 2 20 此 SF 0E 05 0049 
0040- 09 20 3 5 2 20 80 FF 
0048- FF 时 20 20 20 20 5 玫 
0050- 卸车 于 37 29300 殷 F5 
0058- 1B8 37 和 SF0043 09 
00600- 0 汪 117 39 .37 .35 371 535 
0068- 37 和 sf 7 20 20 00 3| 


包 


如 果 各 位 是 经 常用 到 Pro 
-DoS 和 DOS3.， 3 系统 


用 的 功 它 拥有 可 储存 
蛙 间 和 日 期 的 功能 。 它 於 你 每 
次 存 人 新 的 程式 或 改良 程式 俊 
都 会 把 时 间 和 日 期 加 於 其 上 ， 
以 后 每 当 你 刍 人 “CATALOG 
”和 后 ， 你 都 可 以 看 到 每 个 程式 
的 最 后 使 用 日 期 及 昧 间 。 

很 可 惜 ， 以 上 所 有 的 优点 
只 有 和 那些 所 有 时 链 卡 的 用 家 才 
能 办 到 。 担 各 位 不 用 灰心 ， 今 
次 垮 大 家 介 帮 一 个 ProDOQOb 
时 间 程 式 ， 有 了 此 程式 后 你 可 
於 每 次 使 用 ProDOS 时 设 定 
淮 确 时 间 和 与 日 期 ， 方 便 你 在 使 
用 ProDOS 程式 蛙 记 下 的 。 


程式 的 输入 


常 你 把 程式 (j 徐 入 电脑 和 后 
， 按 以 下 的 指令 把 它 存在 磁 片 
上 : -一 


BSAVE DATE ,TINE .8000 ,3272 


程式 口 ) 是 一 个 示 箔 程式 
和信 完 完 和 可 式 从 投下 列 指 合 存放 
片上 


的 医 ， 你 一 定 会 屋 吉 PTr 
ee 由 二 必 闪 4 抽取 有 
是 
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旭 ， 全 汪 


5AVE BATE .TI 丝 ,DENO 


间 程 zs 


程式 僻 j 是 一 8 一 
， 键 入 和 后 按 吕 
一 AV 了 STARTUP 押 它 存放 
磁 片 上 。 由 於 ProDOoS8 系 和 纺 
有 一 个 特征 ， 就 是 在 冷 起 动 时 
是 会 自动 夫 找 一 个 名 吓 STAR 
一 TUEP 的 程式 ， 所 以 你 以 后 
每 当 起 动 此 片 磁 矶 后 部 要 核 人 
时 间 和 日 期 ， 确 保 你 的 程式 可 
得 到 正确 的 存 人 时 交 与 日 期 。 
你 还 可 把 程式 一 和 (三 ) 同 时 移 到 
别 的 ProDOS 磁 片 上 ， 运 柑 
便 可 使 你 以 例 所 存 人 的 程式 全 
部 都 有 上 时间 和 与 日 期 ， 面 不 会 像 
以 前 那样 党 相隔 一 段 日 子 俊 会 
忘记 了 存 人 程式 的 日 期 与 上 时间 


O 


结语 


ProDO0S 是 一 个 相当 好 
的 操作 系统 ， 它 有 著 许 多 的 优 
点 是 DOS35 .3 系统 所 没有 

的 。 对 於 一 些 懂得 设计 程式 的 
二 
加 以 改良 或 加 於 你 自己 的 起 动 
程式 上 。 


8000- 风 2320F5 有 9 中 6 
8008- 人 毗 风 有 呈 5997 天 F7 
610- 8 大 舟 0085F889 8 
al8- 83 FF 9 3 85 FE A9 人 
626- 上 F6 人 9 97 857 全 
8028- 人 和 抢 抱 中 FE 9 
8030- [8 DO F93 E5 FF SO BC 
8036- 030 的 的 20C93 83 
的 40- 1 的 的 吾 台 对 耻 
98048- 020 44 28 0 冯 了 4 8 
8 9 号 
8058- 84 FF 20 于 的 20 旬 下 
二 的 - 20 上 其 


fID 
蕊 
CC 
Km 
ID 
= 
XI 
CT~ 
六 
《> 


8068- 6 DD 20 下 的 的 引 
仙 10- 8 AD78 6 7 2 
8078- 30 1 部 卫 85 08 
8080- 5 9 和 92 于 288 加 
8088- h2 0 60 09 50504208 
8090- 风力 499 有 9398 引 8s 
8498- F 29 让 85 9620 人 99 


BOR0O- 91 时 28 38838508 06 
-80688- FID HAS FD 29 FF 和 9 有 有 8 人 
8080- 85 FD 4 893 07 69 FD 和 人 


8088- 0 00 台 9 有 和 
B0C0- E8 8 人 0 有 FF 人 2 0 
80C8- 20 74 98 由 08 62 07 和 
8000- 09 84 FA 20 58 98 20 A8 


6008- 98 90 01 680 09 30 85 F8 
80E0- N9 02 8S FC 9 00 85 Ai 
80E8- h9 FN 85 Ah 4C AL 04 C8 
8OF0- 89 B7 00 48 Bi 85 99 二 
80F8- 00 60 0 FF2 全 得 [5 
Bt00- 0 乓 80 的 00F0 06 8 
8to8- 17 [9 20 F0 56 99 930 02 
8iit0- 8 1054 和 0085 BE 名 
gtie- 0285 阳 203898 允 4 
8i20- 85 06 24 FE 30 11 20 87 
8i29- 69 2 F904 [9 3 m 
8i30- 3220800 检 招生 20 








由] 
Te 
| 
Cr 
1 
中 
门 
4 1 
[二 


8150- 9 入 
Bi1s8- 和 区 


bc- 全 上 服 


二 站 


biaog- 后 2 
ER 
8!178- 于 4 


Bibu- 防 狂 下 


ti88- 68 旨 


Bi930- 99 F9 


19- 站 


> 


人 人 Fr 
< DO -总 人 2 


xD CD 人 -了 


2 RD ”T 必 


=- 和 


2 


PP PE Dev ， 


1 CD 一“ 


交 


2 
3 


[ 


> 
IC “1 


o， 
wo 


CD Ia 一 


人 
30 


加 


CD 
、 】 ee an 
< 上 23 


ff 时 


-3 


一 〖 耶 
3 号 
让 -4 -CTTI 下 > 
mo 0 CD 
mw 


< 了 2 
KxXI 


48 20 8 


0 
18 0 


38B E9 


BO- 63 [8 8 F9:69 08 
alfgB- 9 Di 好 98 3 了 苇 放生 
8:180- FF 90 32 02 60 和 
8188- 07 区 的 有 4 了 E0 
Sic0- 全 9938F60 训 -8 
8if8- 8 90 0 和 20 世 
Si96- D6 02 546 FD 58 
8l38- 0 E5 04 FI 00 怠 S 
35E0- 99 18 的 24 FES008 65 
SiE9- 的 tt8HMH2F 全 08909 
Bi 民 如 前 0 和 2780 的 
8tFf8- 8022 生 600 扫 的 0 
8B20- 27 FFC 站 有 和 的 的 扣 
820.6- 30 0 向 种 182888600 
8210- FC 98 好 证 的 FA 的 
82 声 .- FE 43 55 5 40 3 交 扣 


ti220- 78 24 
8228- 9 际 
8230- 反 0 和 3 
8238- 26 归 
8246- 秀吉 
48- 狂 46 
39250- 00 52 


07 0 
oo 806 
YL BF 
5 4 
4 41i 
8238- 4 55 4 和 柜 41 
8zo8- 950 秆 45 54 
8268- 45 435 的 54 


8270- [9 0E FF 


Ce 
如 站 


FF ~? 
] ~ 人 


em 
机 < 


WE 


2 
< MT > 


CI 《Km fx 


2 


09 记 


9 8 


.8BB 《3 


0 99 


0 03 
20 9 


FE300C 生 08 
8 08892 对 28 
6 0 0 08 
8 9 芋 牛 
人 4 
4 8 52 41 
5 4 53 4 
55 和 7 
民 FS 44 
49 4D 45 4 


3 45 


和 1 
， 八 LI 69T8 170 

Us ”RN 程 让 TD 

ETNT RNR 二 人 ER SET 1 

Ps : 式 ; = 7 地 Ra 人 

二 二 80 NEXT 
人 V 9 AT 有 二 ar84i 1-gar 一 8b 10-JRH- 
1 30 813- 由 -90 0-JN-83 
1 2 EE-8s3t-0CT-94-，29- 
1 FE8-93 ,29-FE8 84 31-apr-83 


1 


二 


站 
| 网 
如 


138 


1 


SEN SThAQTic RSGERAM FOR DATE 
,TIE 


TEXT MTRRCE :8 几 ， 4 全 
1 
SNERR 上 


TO 000 
站 

HE 

和 2 


IF 3 0T9 2303 REM 3 
FE NT 下 1 如 f 
PRINT “THE CURRENT BATE 29 


1 有 

FRINT ， PRINT "0 YU WANT 了 
8 CHENEE IT TY 和 了 

BET 引 
下 各 : 
RN THEAN PRINT 
190 

FRR 各 

IF 和 = 880T0 2 的 

PRINT :INPUT sENTER THE DAT 


RD 
CHR 17)13 60T0 
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2 


0 
999 


E 【9-MN-YY) 0 和 


车 吧 环 全 
(了 有; 
0 = 


0R IN INTE INPUT": 


> "THEN 帮 3AT 人 


THEN PRINT “RS 


6070 230 


PRINT INPUT “ENTER THE TI 


EM 
IF 了 
环 ) 

下 了 


6R IN TIE INMPUT 


:1T1 
2 THEN 必 TIIE{ 


= ”THEN PRINT “ERR 


“8079 260 


REM RETRAIEVE 人 ND PRTINT 9ATK 


人 AND TI 二 
0 


LET 0 证 = 
PRINT “398fE : 
LET T 吉 = 


TIE 了 这 
VThAB 22. 
下 


18000 PGKE 6 
1 RH 有 二 4 


和 RAT 有 《DR 
1 


8% TIME{TI 地 ) : PRINT 


Ye 


妈妈 是 示 图 





程式 是 要 建立 一 个 体能 震 写成 的 疲 入 显 示 图 ; 有 如 一 座 
动 图 ， 将 体能 震 幅 的 次 数 沟 成 示 波 吕 上 的 类 似 波 缴 。 但 在 监 
波 航 表 。 而 程式 是 用 BASIC 视 芝 上 的 疲 纹 是 称 定 的 频率 ， 
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人 





和 人 


RS 折 证 机 1 昨 六 二 
人 上 | 人 汪 2 :7 
和 记 和 让 RE 2 
下 二 全 让 民 直 兴 全 直 闪 直下 下 直 扩 半 法 和 贞 站 全 二 所， 
六 半 半 下 站 中 t ii 人 
生生 | 
从 和 站 汪 丰 六 下 于 CT et 入 
用 贡生 训 加 和 | 各 刘 | 员 人 人 nl 
十 购 共 最 站 入 交 于 本息 本 和 让 本 上 站 站 
出 让 汪 忆 全 让 有 各 人 0 1 人 和 二村 和 
4 1 人 :: 
Wi es | 拓 ff ed ee 则 1 in | 
] 
让 中 汪 


M 


而 频率 的 状态 亦 是 自然 平均 的 
o 在 监视 器 上 你 亦 要 按 上 频 奉 
和 填 幅 的 次 数 。 委 程式 进行 时 
， 会 有 五 人 条 波纹 精 出 现 。 而 其 
中 四 修 疲 级 是 你 所 办 入 的 次 数 
， 但 第 五 人 条 波纹 是 以 上 四 休 波 
纹 混 合 而 成 ， 亦 即 是 你 频率 和 
震 幅 的 总 结 。 

过 程式 你 只 需 用 RUN 融 
能 雇 动 它 ， 程 式 雇 动 后 便 会 闭 
你 第 一 个 频 达 和 震 幅 的 次 数 ， 
它 炮 共 会 间 你 四 次 之 多 。 你 键 
和 人 和 后 还 要 输入 疲 缴 的 大 小 数字 
。 数字 越 大 ， 图 就 越 小 。 当 你 
在 过 人 频率 (FREQUENCY ) 
的 数字 时， 你 可 按照 : 100 ， 
200，300，400 等 和 这些 数 ， 
你 机 先 后 输入 。 之 后 过 些 数字 
就 构成 波 入 ， 在 程式 中 过 四 休 
波 和 是 以 100 过 数值 来 做 水 
平 疲 入 。 10 以 200 来 做 水 
平 波 煌 ， 你 可 看 表 侣 或 表 扣 。 


现在 应 襄 到 震 幅 过 一 环节 


， 因 它 在 程式 中 也 有 着 重 于 的 
地 位 。 当 你 在 按 填 幅 (AMP 


FREQUENCY: 100 
AMPLITUDE: 100 


FREQUENCY: 110 


AMPLITUDE: 100 


FREQUENCY: 120 
AMPLITUDE: 100 


FREQUENCY: 130 
AMPLITUDE: 100 


Number of cycles 0f 
Lowest Frequency: 50 


表 握 
EXample 2: 


FREQUENCY: 100 
AMPLITUDE: 100 


FREQUENCY: 200 
AMPLITUDE: 100 


FREQUENCY: 300 
AMPLITUDE: 100 


FREQUENCY: 400 
AMPLITUDE: 100 


Number of cycles of 
Lowest Frequency: 10 





-LITUDE ) 时 ， 频 这]1 的 震 


幅 就 是 150， 而 频 奉 是 2 圳 幅 


就 是 50 
1/3 多 ， 而 每 一 频 奉 和 震 幅 就 


， 当 频 奉 2 就 只 是 有 


可 移 成 波 科 。 


204 


“0 


y、TJT 个- 
《4 个. 了 
性 > 


290 


60 
210 


280 


23 


当 你 使 用 章程 式 时 ， 你 可 


程式 . 
了 5 PEGPR 人 人 4) = 
POKE 下 吕 生 全 


4 THEN 233 


:PbkE 133，j 
:PHKE 16384 


PRIRT CHR 和 《4)3 RUN FREG,BLEN9' 
TE 


; HHME 

:04279) 
:; FOR II=1 TI 
PRINT “ENTER 
:JJNPUT FRIT) 


170 4 


REGUENCY 和 1 


PRINT “ENTER 用 P LITUDE， 


INPUT AP () 

PRINJ 

IF FRI > GAND FF 0 THEN PH 
= 上 RD) 


; 60TD 260 


直 RFDD ATFN AND FRI > 
THEN fN = 了 R 人 I) 

失 EX 了 

PRINT 


;PRINT “HOU NANY CYCLES OF THE 上 


EST FREQUENCY 00 YOU WIISH T0 5 
E DISPLAYEDY 


; INPUT "CYCLES， "iiCY 
; [Y = CY + 2,28571429 


DEF FNFIF) = SIN (IAA 人 FRFI 
攻 0 人 CCY 二 SGN (MPTL 
) 2 |) 
HHDHE 
; 6R 
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护 上 目 己 有 运动 后 或 休息 时 的 心 
肛 跳 动 和 呼吸 次 数 。 运 束 成 了 
五 休 波 纹 ， 你 可 把 过 五 条 波 娄 
用 印字 机 印 出 来 ， 你 就 能 看 到 


自己 的 体能 震动 





。 亦 希 望 各 


1 一 1 
曾 





位 读者 身体 健康 。 


s00 


1 
S20 


300 
S70 


: HCQLOR= 3 
:FRI=1T04 


IF FRt) > 0 THEN 60SU8B 350 


: FF = 204+14254 0- 有 ) 

; HPLOT 020 + (425 4 (人 - 人) 
; FIR IT =070274 

; F&tJ,I) = FN F() 

: HPLOT 70 [FI + 10 + 才 


NEX 了 

NEX 了 J 

JI = 0 

FRI=1T04 

TA = 了 + ABRS (AMP 人 ID) 


人 EX 


HPLOT 0,130 
FOR 1 = 0 T0 279 


: HPFLOT TO 了 FT (人 MP 


/ Th + F9(2, ID 二 《HP(2) 7 Th) 
+ FRI) 二 (RHP(3) 7 TA) + Ft 
4 了 J) 到 (AHP(4) 7 TA)) 二 25 + 1 
0 


;ME 灯 


BET 


:RUN 


VTAB 20 + 了 


;FRINT >FRERUENCY 执 ” 可 和 =“ 从 人 ) 3 


AMP=。; AMHP1I) 
IF J(4THEN PRINT 
RETURN 


相信 各 位 经 常 要 打 程 式 的 
朋友 都 会 长 寺 如 自己 要 输入 一 
个 很 长 的 程式 ， 双 不 能 在 一 次 
完全 输入 的 让 ， 人 和 住 往 同 一 程式 
便 需 要 修改 及 SAV 了 许多 次 ， 
加 上 在 DOS 5 .5 系统 中 ， 
你 可 以 输入 一 个 长 过 5 0 个 字 
母 的 档案 名 称 ， 所 以 许多 用 家 
都 会 给 一 个 很 群 组 的 名 称 以 兹 
哉 别 。 但 你 每 次 在 修改 完 程 式 
及 把 它 用 原来 那个 很 长 的 名 称 
存 人 电 觅 豆 ， 会 否 觉 得 很 烦 电 
? 有 和 否 想 过 只 须 用 “ SAV 卫 ” 
命 全 ， 加 上 一 个 “@ ”符号 ， 
便 可 把 饭 程 式 最 人 兵 所 键入 的 档 
案 名 称 存 人 磁 碟 内 。 


程式 使 用 法 


使 用 过 个 程式 先 要 热 行程 


式 (十 AUTO .NAMBE. 工 OADB 
一 R， 它 会 自动 执行 程式 一 D 
-08$. AUTO.NAME 。 之 后 
你 可 以 从 磁 磅 中 载 人 所 需要 修 
改 的 程式 ， 跟 着 每 党 你 要 把 程 
式 记 回信 磁 碟 内 时 ， 只 须 键 人 
“ SAVEQ@7” 便 行 了 。 

至 於 渤 择 符号 “ @ ”是 基 
於 摧 个 原因 : 一 一 
第 一 : 是 因 过 个 符号 是 极 少 候 
用 到 在 档案 名 称 驯 面 。 
第 二 : 是 由 於 在 D 0 8 系统 庄 
， 档 案 名 称 的 第 一 个 字母 或 符 
疙 的 ASCIEI 值 必 须 是 大 遇 或 
等 从 $ C 0 。 而 能 通 应 以 上 两 
个 条件 的 字母 ， 在 某 款 更 果 电 
觅 的 键盘 上 就 只 有 很 少 的 数量 


所 以 是 最 通 合 不 遇 的 。 


程式 输入 法 


当 链 入 完 机 械 码 程式 一 ) 合 


用 以 下 的 指 分 把 它 储 存在 磁 矶 
nn 


BSAVE 9009 .有 TD NANE 300 尘 和 9 


< 程式 一 


0500- 20 BE FDI A0 00 89 如 03 
0308- 20 ED FI [8 CO 1E 90 FS 
03510- 20 此 F0 89 60 03 20 ED 
03!18- FD (9 C0 3C 90 F5 20 8E 
03520- FD 460 49 9 E BC 58 人 
0528- 1 0 58 MA 8D 64C 03 6 
0540- 09 C0 90 25 89 60 03 99 
0558- 75 从 CCC 6C 0 90 F4 
0540- 4 61 0 4 66 RNO 20595 
03548- AL F0O F8 99 75 hh 99 0 
05J0- 03 C8 CO SC 90 F0O 4C 4 


下 一 步 便 是 把 App leso 
-ft 的 程式 器用 下 列 指 今 存 
入 人 磁 碟 内 : 一 一 


SAVE AUTO.NANE ,LO0ADER 


最 和 后 的 一 件 事 ， 就 是 当 你 
在 修改 程式 的 途中 如 忘 记 了 它 
的 名 称 ， 可 键入 ^″ CALEL 7 6 
8 ”， 跟 着 萱 幕 便 会 显示 出 你 
最 合用 过 的 档案 名 称 ， 方 便 你 
随时 竺 看 。 


DOS .AUTO. NAMZE > 


0358- 0 4 的 h993 0 0 0C8 
0360- CC 4 03 90f7 8 所 中 

.0368- 抽 4 要 0 00h010h 
0370- MAO AAA 和 
03578- 1M0 80 AhRMNAHMAN 人 
0380- A0 AM HR AAAO 
0388- AM0 MO AN AN AN 
03590- NO 得 和 了 人 NM 
03598- 1N0 hMN0 MO ANO AN AN AMNAMNO 
03A0- NO MO AAA NAN 
03A8- 人 





< 程式 二 


10 FRINT CHRS (4)"BL0AD 0D05.AU7 
48.NAHE” 
20 PDBKE 41049，76: PKE 41050，34: 
FUOKE 410513 


AUITUO. NAME. 开 OADER > 


各 位 亲爱 的 许 者 ， 在 上 期 我 们 鲁 提 及 有 了 关 世 
程式 1 上 一 2& 一 5> 的 程式 设计 比赛 ， 今 期 向 大 家 
解释 有 关 的 规则 ， 程 式 只 能 在 一 、 二 或 三 句 内 完 
成 ， 来 稿 中 必须 解 衔 设 程 式 的 性 质 、 类 别 及 用 波 
等 。 本 刊 有 权 删 改 各 来 稿 。 以 和 后 每 月 会 从 来 稿 中 
选 出 最 佳 的 九 件 作品 ， 一 、 二 或 三 句 完成 的 程式 
每 种 选 出 三 件 最 佳作 品 ， 稿 件 一 径 刊 登 朗 致 薄 醋 
。 污 者 可 用 笔名 ， 但 在 来 稿 中 必须 附 上 贤 实 姓名 
\、 地 址 、 电 话 及 身份 趟 号 码 以 便 联 烙 。 如 程式 是 
属於 图 案 的 ， 务 必 把 程式 圳 图 案 一 休 寄 上 ， 辣 时 
经 对 灰 禁 抄 费 及 转载 ， 苦 因 过 个 比赛 的 目的 在 提 
高 各 诈 者 对 程式 诉 计 的 愉 趣 。 

投稿 请 寄 

九龙 中 央 邮 和 箱 7<O2&4 7 号 

首 果 用 家 月刊 收 
封面 请 赴 明 「 程 式 1 一 & 一 3 投稿 J 


次 采 用 家 月 刊 遵 雇 


曲 细 


[ 薄 果 用 家 月 刊 ; 自 推出 以 来 ， 深 受 
读者 炊 迎 ， 读 者 人 数 与 日 俱 增 。 彤 着 使 谨 
大 读者 能 绝 获 得 市 场 上 新 产品 的 消息 ， 本 
刊 现在 正式 接受 广告 。 各 公司 如 和 欲 在 本 天 
上 刊登 广告 ， 请 致电 3-805236 谣 问 。 
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上 人 


SA 


2 
{ 一 4 area 


N_ 盖 ， 


烦 末 信箱 
PZZHZAZTAVTAUAZAUAVUVUVTAVVAZYVAVVUVUVAVT 1 


编辑 先生 : 

本 人 有 一 部 48 开 APPLRE ， 一 向 很 正常 
， 最 近 加 了 张 16XK RAM CARD ， 但 约 现 
RAM CARD 不 能 正常 工作 ， 另 外 ， 按 工 NT 
合 不 能 行 ，INTHRGER BASIC 东风 系 和 统 “ 五 
一 ang ” 了 。 不 知 何故 ? 有 何 解决 办 法 ? 希 宇 
早日 答 桥 ， 谢 谢 ! 和 祝 
贵 刊 一 纸 风 行 ! 


APPILE USPER 上 


镍 者 APPLILBE USERR 君 : 

照 来 蒿 所 述 应 是 R ANXM 卡 出 骨 题 ， 应 泛 往 检 
查 一 下 便 可 知 是 否 工作 不 正常 了 ， 正 常 RAM 卡 
在 BOOT DOS3s5 .535 和 后 , 合 自 行 载 入 整数 卫 
一 ASIC 於 RAM 卡 上 ,过 时 键 和 “INT?” 指 
今 放 会 转换 成 整数 BASIC 模式 ， 但 因 部 份 R 一 
AN 卡 的 TIMING 不 大 准确 ， 故 整数 BASIC 
可 能 会 有 不 能 顺利 执行 的 情况 出 现 ， 壳 是 一 般 在 
用 RAINM 卡 会 大 到 的 问题 。 


闽 果 信箱 杂 履 





编辑 先生 : 
你 好 。 本 人 有 以 下 之 电 有 问 题 ， 斋 于 能 一 一 
解答 。 
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本 人 有 一 部 APPIE COMPATIBIB 的 机 
， 网 部 磁 夸 机 ，1 6 玫 RAX 卡 。 最 近 新 应 了 
一 部 SAKATA 印字 机 ， 用 的 是 了 PSON APL 
卡 。 
( 甲 ) 和 当 了 PR#1L:， LOAD 夸 后 再 LISIT 一 侦 
BASIC 程式 时 ， 只 能 在 9 时 效 上 的 左边 
印 出 小 於 4 0 行程 式 ， 白 白 狠 费 了 右 过 个 
面 纸 ， 有 什么 方法 可 印 满 整 面 纸 吧 ? 
( 乙 ) 如 想 将 机 械 码 程式 列 印 在 纸 上 ， 压 该 怎样 
做 才 对 ? 
( 两 ) 在 “高 登 >” 看 见 很 多 店 号 将 GAMB 旱 面 
儿 在 罗 上 ， 可 有 什 方 法 ? 
( 本 ) 如 和 想 列 印 重 面 横 度 印 满 整 蕊 9 时 级 上 ， 又 
用 什 条 方法 吧 ? ( 多 数 所 见 只 是 印 在 纸 上 
左 牛 婉 牛 面 。) 
( 成 ) 据 知 如 IBM 等 16 一 了 BIT 机 种 ， 可 隔 
时 随地 DUMP SCREEN 的 。APPILE 可 
否 照 做 噬 ? 或 有 何 程式 能 有 过 样 功能 ? 
双 如 想 将 APPLERESORBT BASIC 程式 球 香 
机 械 码 程式 在 机 内 有 运 行 ( 想 加 快速 度 ) ， 可 有 什 
麻 方 法 或 现 有 的 程式 将 BASTIC 转念 机 械 艳 ? 可 
否 介 烛 些 公 考 书 ? 
硕 望 能 代 筷 解答， 积 贵 刊 业务 蒸蒸日上 ， 
多 谢 。 
锭 者 
W.C.SO 上 





读者 冬 硬 : 


来 信 各 寺 题 简 揽 如 下 : 一 一 
( 甲 ) 如 果 是 用 了 EPSON APIL 打 色 介 面 ， 只 需 
按 下 列 指令 ， 便 可 控制 盖 行 印 出 的 字数 : 
POKER 1656+8SI，n 
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DOOO 一 
DOO8B- 一 
DO1t 一 
DOLtB-~ 
DO2O 一 
DO2B 一 
DO 一 
DoOsS 一 


DOOO 一 
DOGL 一 
DOOD2 一 
DOO4- 一 
DOOS 一 
DGOOG-- 
DCQOB 一 
DOWwA 扩 一 
DOOC 一 
DOGD 一 
DOOE 一 
Deo1loco 一 
Dot TI 一 
卫 怠 下 之 一 
DO1lS 一 
DOL4- 
DO14 一 
DOTtLO9 一 
Do1tES 一 
DelC 一 





有 1 
SF 
D4 
D7 
CB 
20 
GE 


6F 
D8 
65 
FS 
DC 
94 
Bi 
s0 
D8 
DF 
El 
BF 
FS 
58 
FS 
E4 
DD 
Fl 
F2 
31 


D8 
DB 
F 立 
FI 
记忆 
F7 
F7Z 
乒 二 


6 与 
了 操 
298 
4 
E1 
CE 
2 
7 了 


D7 


D9 
DR 
F 忌 


DB 


F1 


Fl 
24 


其 中 S 工 是 指 搬 ABPEI 介 面 的 SLOT 号 码 
， 而 D 则 是 欲 印 出 每 行 的 字数 。 

双 如 坏 用 是 GRAPPLER 或 MICRO BU 
一 BFER 等 介面 ， 只 机 按 下 PRINT CH 
-R$(09):;,，“80N” 即 是 CTRIL 
一 工 ><N><RETURN>> 便 可 改 骤 
成 一 行 有 出 nn 个 末了 。 


( 乙 ) 要 把 机 械 码 程式 印 在 纸 上 ， 只 需 用 下 列 指 


D7 
F 
FS 
F 了 2 
F 
F7 
F7 
F2 


D4 


F 旨 
D8 
E 全 
切 1 
上 唱 
下 如 
7 人 
7 


33 


CLD 

ADC 二 D7 
SED 

?33 

STY 本 D9 ,X 
LDA (地 DB) ,Y 
BMI 在 CFFF 
cLD < 图 二 > 
?3? 

SBC ( 丰 DB ,X) 
333 

?32? 

TYA 

?333 

CPX 地 Fl 

CMP 村 D4F1 ,X 
SBC 《村 24) ,Y 
AND  。 (〈( 吉 F2) 。Y 


分 : 


DC 
DF 
和 1 
上 二 
FA 
F7 
F7 
FF 之 


或 是 另 一 征 印 出 太 式 : 一 一 


34 
El 
DD 
40 
FD 
S7 
CC 
7F 


D9 
DR 
FI 
F 全 
FF 
FC 
F 全 


人 2 


<< 图 一 > 





( 两 ) 如 要 DUMPE 第 一 页 扁 解 像 画 面 ， 则 首先 要 
PR 共 本 ， 

全 是 指 印字 机 介面 的 SLOQOT 号 三 
POKER ]9J 2+N，]1  ，: 
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工 是 指 第 一 页 伍 面 ，& 则 是 第 二 具 画 面 
< CTRIEL 一 Q> 或 是 PRINT CHR$(1 
7 
过 梯 便 可 DUMPE 一 个 另 面 

( 丁 ) 如 要 印 上 全 个 画 面 ， 则 只 要 在 上 的 数值 ( 
1 或 2) 加 64， 即 是 1==65，2== 
66。 

( 成 ) 在 贰 果 上 如 不 作 任 何 修改 ， 是 无 法 寺 成 任 
何 的 SCREEN DUMP ， 而 解决 方 东 有 多 
种 ， 较 简单 的 如 加 上 一 些 硬件 ( 见 图 三 之 
广告 ) ， 便 可 随意 印 出 疏 面 上 的 文字 或 图 
形 了 。 


AddacmCtt 
Prinf ycreen Key 


和 ng your program. 
with most PoPular Parallel and 
eConnect2p tthe same FngerPrint 十 ”“. 
eJump fomone prirterio he other wi 中 a Samgh 
keystroke command, without interrupting Your 





touch of a buttom 
eQGmnhica/Texdump. HandLo-Res qraphics， 


而 BASIC 塌 机 械 医 言 的 方法 可 以 用 C 一 
0OMPIILER 把 BASIC 圭 换 成 机 械 落 言 ， 
而 到 些 COMPIILBR 程式 有 : APPIB 
COMPIILER,TASC COMPILER,，SD 
--S_ SPEEDSTAR,，HEXPEDITERI+， 
HAYDEBN COMPIILER, MTCROSOIT 
TASC 等 多 种 ， 而 这些 COMPIILER 均 可 
提高 程式 的 执行 进度 达 2 -7? 倍 的 效率 。 
昔 果 信箱 下 覆 
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烦 采 用 有 月 午 


电子 科学 出 吸 社 


得 族人 备 洒 李 号 几 


